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SOMMAIRE DES ANCIENS 


totalement épuisés. Cependant, i 
numéros dont la liste figure ci-des 


disponibles. 


NUMEROS 


Les numéros 1 à 17, 23 sont épuisés. 


EX cures. sème partie. LPB: 
7ème leçon, Langage C: KERMIT. 


ET FORTH: trois tours de main; 
Opérations fractionnaires: images de 
grande dimension sous B3X; matrice 
3D pour HRX; extensions Pour Jupiter 
ACE; communication série pour 
Jupiter ACE; TONE sans vibrato pour 
HRX; DUMP hexa et ascii pour HRX. 
PILOT: un langage pour l’'EAO 
MUMPS: 6ème partie. COBOL: sur 
APPLE, suite. LA: bases de données et 
SYSLExp; FUTURSYS et FUTURLOG. 


ET FORTH: une règle à calcul; vir- 
gule flottante F83: la vectorisation. 
MUMPS: 7ème partie, LPB: 8ème par- 
ue. FÜUTURSYS et FUTURLOG, suite. 


[21 | FORTH: micro-traitement de 
texte; Sculptures sonores en Forth. 
LISP: traitement de Propositions logi- 
ques. PASCAL: fonctions graphiques 
pour AMSTRAD. 


BA à21: démystifier APL, MUMPS: 
8ème partie. FORTH: assembleur 8086 
minimal; conversion AN/NA; DEFER 
En 79-Standard; gestion de données 
avec fBASE I; tracé de sinusoïdes, 


LPB: 9ème leçon, un compila- 
teur musical. FORTH: Expert2, une 
application au bâtiment; chaïînage de 
vocabulaire en Fig-FORTH. MUMPS: 
la commande de boucle. 


EX FORTH: les en-têtes séparés: 
traitement des ensembles; éditeur 
plein écran pour AMSTRAD; horloge 
tëmps réel pour TO7-70. MUMES: 
10ème partie. 


ET ;035. 1e entrées sorties. FU. 
TURLOG: 2ème leçon. FORTH: les va- 
riables locales: le langage Blaise, ler 
épisode. LPB: 10ème leçon. APL: sur 
micros. PASCAL: une poignée de toois 
en turbo, 


EM FUTURLOG et FUTURSYS. 
FORTH: le langage Blaise, second 
épisode; mini langage graphique: les 
micro-ordinateurs de ROCKWELL, ex- 
action de racine; programmation des 
piles et des registres. MUMPS. dernië- 
ré partie. PROLOG: programme d'aide 
au diagnostic. 


| 28 | FORTH: le langage Blaise, troi- 
sième épisode; routines générales: les 
mots “NONCE”: la programmation 
structurée; fonction SiNuSs, tracé d'arc 
de cercle: résumé commandes F83. 


APL: une première approche. LPB: co- 
lonisation d'un IBM PC. LA: bases de 
données et systèmes experts. 


FORTH: le phrasé en Forth: 
exécution vectorisée; le langage 
Blaise, dernier épisode; utilitaires F83 
pour IBM; prise de contact avec F83 
CP/M et MSDOS: machine à calculer. 
MATHS: signature et hashcode. 
PROLOG: initiation, Opérations arith- 
métiques. LANGAGE C: compteur de 
parenthèses, 


ET FORTH: les pseudo-constantes; 
gestion de clavier en F83-MSDOS. 
LISP: LeLisp Objet. PROLOG: vérifica- 
teur de règles de dessin Pour circuits 
intégrés en technologie CMOS. 
PASCAL: lien de bibliothèque avec 
turbo. MATHS: Ja Compression de l’in- 
formation, codage de Huffman. 


APL: gestion de tableaux. LO- 
GO: une gestion de fichiers. FORTH: 
éditeur plein écran pour AMSTRAD: 
fonction horloge temps réel pour 
IBM, fonctions graphiques pour 
AMSTRAD); structures de données 
PL/1; impression graphique muiti- 
écran pour HRX; ja gestion des fi- 
chiers en F83; Sauvegarde des blocs 
pour AMSTRAD PCW. 


FORTH: INPUT en F83; présen- 
tation FIG HAMBOURG: racine Carrée 
16/32 bits; NOVIX 4000; opérateurs 
d'entrée alpha-numérique:; chaînes de 
Caractères; programmation robot 
MULTISOFT. TELEMATIQUE: réseaux 
et codes TRANSPAC. APL: notion de 
fonctions. PASCAL.: compresseur de fi- 
chiers. 


FORTH: lancement F83 depuis 
dBASEII, lancement F83 depuis 
WORDSTAR,; génération d’une com- 
mande F83 depuis une chaîne de Car.; 
Conversion + transfert fichiers texte. 
PROLOG: complément au prog du 
n050. PASCAL: décompresseur codage 
de Huffman, suite. SYSTEME: le moni- 
teur du TO9+, QR: O3 Q4 Q5 Q6 Q7 
Q8 Q9. MATHS: arithmétique des en- 
tiers équilibrés. 


FORTH: R2 R2 RS; notation al- 
gébrique infixée; assembleur 6809 
lère part; éditeur Plein écran pour 
F83-6809; la maitrise du graphisme. 
PASCAL: éditions de fichiers compres- 
sés en codage de Huffman. PROLOG: 
génération de grilles de LOTO. APL: 
le crible d'Erathosthène. 


FORTH: R4 R&; un métacompi- 
lateur simple; assembleur 6809 2ème 


Part; fBASE IT pour ORIC ATMOS: 
VolksFORTH83 pour ATARI. dBASEII: 
présentation. LA: rédactor. 


MSDOS: prise en compte du 
clavier dans un fichier batch. IA: in- 
troduction à l'IA. FORTH: FBASEII 
sous MSDOS; variables chaînes exécu- 
tables. APL: le PGCD. 


IA: FORTHLOG Il; Logique et 
Systèmes experts. FORTH: Handier 
TUS8; éditeur plein écran pour 
MSDOS; manip. de piles et passage 
de paramètres, 


FORTH: TURBO-Forth un pro- 
duit NOTBORLAND: chargement de 
fichiers texte: virgule flottante en 
MVP-Forth, LA: la logique bien forma- 
lisée. 


FORTH: Gestion de variables 
locales; fonctions graphiques CGA; 
gestion attributs minitel: libérateur de 
blocs écrans; décompression de fi- 
chiers F83; fonctions graphiques 
HERCULES: décomposition en fac- 
teurs premiers. LISP: récupération d’é- 
valuation. PROLOG: logique binaire 
en Turbo-PROLOG. PASCAL: la pile 
heap de Turbo-Pascal. 


FORTH: TURBO-Forth encore: 
accès aux commandes MSDOS en 
F83; fonction horloge et calendrier; 
div. et rac. carrées de grands nom- 
bres; traitement de chaînes. APL: tours 
de Hanoï. PASCAL.: gestion de fichiers. 


FORTH: Novix 4016: Commuta- 
tion carte mono-Cga: TURBO-Forth, 
suite; menus déroulants. LISP. robot 
logiciel. PROLOG: simulation de com- 
mandes de robot. 


FORTH: du nouveau pour ATA- 
RI; Virgule flottante 83 Standard; Qua- 
druple précision; modifications de 
Turbo-Forth. OCCAM: un langage 
pour les ordinateurs de 4ème généra- 
tion. PROLOG: calcul de résistances. 


TELEMATIQUE: JEDI SUR 3615: 
Connexion au réseau BTX. 


FORTH:Variables locales; divi- 
sion çà précision infinie; Utilitaire de 
gestion de fichiers; Forth résident; 
Gestion carte HERCULES; Programmer 
sous GEM en VF83, Division et racine 
carrée en LM. COMMUNICATION: 
Liaison MINITEL-PC 


Nombre de numéros commandés: 


nr: 


FORTH: virgule flottante; multi- 
fenêtrage; bibliothège GEM Volks- 
Forth; simulateur CPU 1802 RCA. 
PROLOG: carnet d'adresses à code. 
VO: Die Fileselector-box unter Volks- 
Forth; Classes in Forth. 


BA FORTH: triturations binaires; 
traitement fichiers dBASE Ill; compila- 
teur F79-F83; programmation lang. 
orienté objet; redirections E/S MS-DOS; 
gestion sons PC. TÉLEMATIQUE: ac- 
cès à SAM'JEDI. VERSION ORIGINA- 
LE: Forth to the future. 


FORTH: métacompilateur PHE- 
NIX TF83; scrutateur récursif de primi- 
tives; projet F32 (46); structures de 
données par enregistrement; fichiers 
binaires F83. DBASEII: menu dérou- 
lant. VERSION ORIGINALE: forgetta- 
ble internal names. 


FORTH: gestion fenêtres par pi- 
le; téléchargement sur ATARE conver- 
sion blocs>ASCII et invers. sur ATARI; 
virgule flottante sur ATARI; création 
accessoire sur ATARI; formatage disk 
sur ATARI. VERSION ORIGINALE: Use 
of a Forth Based Prolog (D 


FORTH: initiation à la gestion 
des fichiers séquentiels. VERSION 
ORIGINALE: Forth on the IBM, prime 
numbers; use of a Forth Based Prolog 
for Real Time Expert Systems (ID 


Port et emballage inclus, TVA 5,5 % incluse 


FORTH: les suites de Syracuse; 
VERSION ORIGINALE: Compiling Pro- 
log to Forth (ID 


ET or: Pi jusqu'à 22000 déci- 
males; éditeur de commandes DOS; 
utilitaire de menus déroulants; projet 
F32, spécifications. VERSION ORIGI- 
NALE: Compiling Prolog to FORTH 
(IV); Dragon, Fraktale für Forth. 


FORTH: package virgule flottan- 
te, algorithme de Cordic pour TUR- 
BO-Forth. 


EA FORTH: paramètres et pointeurs 
de pile; bannière écran; structure 
OUT-ENDOUT, visualisation d'images 
digitalisées; Turbo-Forth résident, 
tours de HANOI; Désassembleur 8086 
pour TF83; création de listes de 
variables et de constantes. 


| 53 | animations 3D:; accès aux inter- 
ruptions; CORDIC, une bibliothèque 
de calcul en virgule flottante à préci- 
sion variable. 


(moins de 30 numéros disponibles) 
RTX 2000: le contrôle temps-réel; 
caractéristiques et architectures temps- 
réel: l'environnement de développe- 
ment de la famille RTX. RESEAUX: ré- 
seaux et codes barres, l'exemple 
Cross-Bar 


VOS coordonnées 


Nom: 


Prénom: 


STEPHANE 


. Dateo#/æ/it Signature 


chèque à l'ordre de REM CORP, commande à expédier à REM CORP, 17, rue de la Lancette 75012 PARIS 


EDITORIAL 


Encore plus de PC semble être La devise maîtresse du dernier 
SICOB qui a eu Lieu au CNIT DEFENSE. Parmis Les exposants, 
Le matériel IBM et compatible dominait largement. 


Première constatation, Les professionnels ne considèrent 
plus Les micro-ordinateurs comme des gadgets, mais comme de 
véritables outils de travail. Pour preuve, la variété des 
applications présentées et Leur destination était 
essentiellement à vocation professionnel le. 


Seconde constatation, le recentrage du matériel. Dans La 
gämme IBM et compatibles, on ne présente plus que du 
matériel qui ne soit au moins du niveau des AT 286 et 
disposant d'au moins 40 Mo de capacité sur disque dur. Ceci 
est également vrai pour Les portables. 


Dernière constatation, La sensibilisation aux problèmes de 
sécurité des données. Tout d’abord, les virus et autres 
bombes logicielles sont de moins en moins tolérés. Ensuite, 
l'archivage, La conservation et La transmission des données 
sont sécurisées; Le CD-ROM montre son nez, le streamer 
devient la norme et Les protocoles avec identification du 
destinataire sont monnaie courante. 


En dehors des systèmes IBM et compatibles, point de salut. 
Même si certaines machines, telles L'AMIGA 2000 où le Mac 
INTOSH SE, sont intéressantes du point de vue performances, 
ce que je suis Le premier à reconnaître, on ne peut plus 
espérer l'apparition d'Un nouveau système qui deviendra La 


SOMMATRE 


FORTH: Paramètres et pointeurs de pile 
Bannière écran 

Structure OUT-ENDOUT 

Visualisation d'images digitalisées 
Turbo-Forth résident 

Tours de Hanoï 

Désassembleur 8086 pour TF83 


Création de listes de variables et de constantes 


TÉLEMATIQUE: Mode d'emploi du réseau BTX 
Contenu du Forum SAM*JEDI 


coqueluche des programeurs comme Le furent en leur temps 
Les APPLE II, ZX 81 et ORIC. 


Autre phénomène, Les virus. Que n’a-t-on pas proféré 
comme bêtises à ce sujet! Qui, un virus peut faire 
beaucoup de tort. Mais si comme moi Vous avez été 
Victime d’un atterissage de tête sur disque dur il y a 
quelque mois, sans être à l’origine d’une contamination 
virale binaire, vous n’auriez pas apprécié que certains 
logiciels, dBASE III+ pour le citer exprès, ne 
fonctionne plus après un RESTORE depuis Les disquettes 
de sauvegarde périodique dont j'ai eu La bonne idée 
d'exécuter régulièrement. Certes, si LA COMMANDE 
ELECTRONIQUE vous remplace une disquette defectueuse 
parce que protégée, il risque de ne pas en être de même 
avec Un produit logiciel également protégé, mais dont Le 
constructeur à cessé ses activités. 


Je considère pour ma part que Le plombage des logiciels 
est une atteinte à La Liberté du client de disposer d’un 
bien qui lui appartient. Achèteriez-vous une voiture 
dont Le capot permettant l'accès au moteur soit soudé 
sous prétexte que vous ne devez y intervenir en aucun 
cas? Le client doit être responsabilisé. S'il reproduit 
son logiciel illégalement, c’est à l'éditeur de 
contrôler et sanctionner les abus d'utilisation. 


C'est en proposant des remises à jour à tarif 
préférentiel et en ne plombant pas Les logiciels que Les 
les éditeurs s’attacheront une clientèle fidèle et 
satisfaite, politique bien comprise par certains. 


- 
SNVONU EN R 


_ 
NN 


Nos coordonnées: ASSOCIATION JEDI 
17, rue de La Lancette 
75012 PARIS 
tél président: (33) 1-43.40.96.53 
tél secrétaire: (33) 1-49.85.63.67 


Télétel: 
3615 SAM*JEDI (France, DOM, TOM) 
(33) 36.43.15.15 (1200€71) (Etranger) 
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ANIMATIONS 3 D 


par Paul KOPFF 


Chers Président et Secrétaire, 


Votre éditorial en forme de coup de gueule contre 
L'informatique alibi à L'E.D.F. m'a fait beaucoup rire, car 
je fais partie de cette respectable institution; mais je 
plaide non-coupable, car mon job est le calcul numérique 
plutôt que L'informatique de gestion. 


Jusqu'à présent, je faisais du FORTH chez moi, pour mon 
plaisir, sur des bécanes assez bizzares (ZX81 ou Sinclair 
QL), mais La pratique de ce langage finit par rendre assez 
intolérant à l'égard des autres (en particulier FORTRAN et 
BASIC, qui polluent encore très généralement Les équipes de 
programmeurs “professionnels"). 


C'est pourquoi, j'essaye d'introduire FORTH comme langage 
pour certaines applications "sérieuses" dans mon Service 
(mais il faut user sa salive !). 


J'ai installé TurboFORTH sur mon tout nouveau Toshiba 15200 
(386/20Mhz... voyez qu'on a même Les moyens de se payer 
autre chose que des timbres), et je dois avouer qu'il n'y a 
pas de plus agréable façon de partir à La découverte, dans 
les entrailles du petit monstre. 


Je dis découverte, forcément, parce que pour le moment, pas 
moyen de se procurer La doc technique spécifique de cette 
bécane, et de plus, je suis pratiquement puceau dans Le 
domaine des "compatibles". 


Voici, non sans fierté, ma première petite application de 
TurboFORTH, que j'ai écrite en guise de démonstration pour 
faire voir à mes collègues Le style et Les performances de 
FORTH. 


Dans mon Labo, on s'occupe d'Acoustique et de Vibrations de 
machines, et pour bien visualiser Les phénomènes, on utilise 
souvent des représentations simplifiées d'objets 
tridimensionnels. J'ai donc écrit en TurboFORTH un ensemble 
de fonctions qui me permettent de décrire un objet "fil de 
fer", et de Le représenter en perspective. Ce programme est 
incroyablement simple et compact, car il repose sur 
l'utilisation de fonctions vectorielles élémentaires 
(produits scalaires et vectoriels) et évite complètement Le 
recours à La trigonométrie. 
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cet ensemble de fonctions constitue Le fichier 3DJ.FTH. 
It doit includer un fichier contenant une fonction LINE 
comme par exemple GRAPHIC.FTH. 


Bon, mais moi, je me suis fabriqué La mienne, dans Le 
fichier LINA.FTH. 


Pourquoi? J'ai testé La vitesse d'allumage d'un pixel 
par un appel à INT 10 du BIOS: 60 us, je me demande bien 
à quoi il passe tout ce temps? Du côté de chez APPLE, 
sur MAC II, La routine LINE met à peu près 15 us par 
pixél. Et LINE, en plus de l'allumage doit faire des 
caitcuis d'interpolation. Bon, sur ma bécane, en 
travaillant sans filet directement sur La mémoire écran, 
ma fonction LINE met 5.5 us par pixel. 


La différence: soit un dessin comprenant environ 50 
segments d'une Longueur moyenne de 100 à 150 pixels, par 


segment je passe moîns d'une ms à tracer, 2.5 ms à 


calculer la transformée perspective de ses extrémités 
Cen FORTH); plus 1 ms pour les mots de haut niveau, 
résultat: je peux rafraîchir Le dessin environ 5 fois 
par seconde. Avec LINE de GRAPHIC.FTH, je mets plus de 


‘25 ms à tracer, Le même temps pour Le reste du boulot 


(négligeable), soit au total à peu près 1.3 sec par 
dessin. 


J'ai donc pu écrire, par dessus Les fonctions de 
3DJ.FTH, Une couche de fonctions d'animation par 


déplacements du point de vue; ceci se trouve dans le 


fichier 3DJA.FTH. Ca marche en mode EGA monochrome en 
basculant entre deux pages vidéo (en dessinant sur la 
page cachée). C'est très beau, sur une bécane rapide. 


Améliorations possibles: codage en assembleur de la 
seule fonction VISION, La plus souvent appelée, devrait 
me permettre de gagner un petit facteur 2 sur la 
vitesse. Après, ça ne vaut sûrement plus Le coup. 


Amélioration de mes fonctions assembleur; ce sont 
d'infâmes bricolages, mais pourriez vous dans Jedi nous 
apprendre à nous servir de façon élégante et efficace de 
l'assembleur de TurboFORTH? Je me suis beaucoup inspiré 
des sources de KERNEL, pour Le style, mais je ne pense 
pas encore avoir tout compris ou deviné, alors à l'aide 
S.V.P.! 


Pour finir, Le fichier . DJ.FTH contient quelques 
fil de fer simples à titre d'exemples. IL include 
automatiquement 3DJ.FTH et 3DJA.FTH. Le fichier 3DJ.FTH 
include en principe LINA.FTH., mais on peut Le modifier 
pour utiliser GRAPHIC.FTH à La place (attention aux 
autres fonctions de LINA). 


Pour tracer un fil de fer suivant Le point de vue 
courant: Le nommer simplement. 


Pour changer de point de vue: donner 3 coordonnées 
position de l'observateur, et appeler POINT _DE_VUE. 


Pour faire bouger tout ça: nommer un fil de fer à La 
suite de REMUE, par exemple: 


REMUE CUBE 


Les touches X Y Z servent à changer l'axe autour duquel 
tourne Le point de vue et Le sens de rotation. V fait 
tourner plus vite (+25%), D plus doucement (-25%). P 
rapproche l'observateur (5%) et L l'éloigne (+54). S 
stop ou step arrête Le mouvement, et permet le pas à 
pas: À arrête Le mouvement et passe en mode VGA, d'où 
une image fixe plus grande. Toute autre touche rend La 
main à FORTH. 


Remarque: REMUE peut fonctionner avec autre chose qu'un 
FIL_DE_FER: 


: TOUT cube octa rhombo ; 


remue TOUT ( TOUT n'est pas un fil_de fer, mais une Séquence 
) 


Ce qui a principalement impressionné mes collègues dans 
cette application c'est la compacité du code (2714 octets 
entre HE et REMUE) et sa vitesse d'exécution. Je pense aussi 
Les avoir convaincu qu'en FORTH on peut tout se permettre, 
et que La Limite est l'imagination du programmeur. Créer des 
objets-fichiers-commandes (on ne sait plus comment Les 
appeler) qui quand on Les invoque, se dessinent eux-mêmes 
dans une perspective choisie... 


LISTING 1: LINA.FTH 


\ Paul KOPFF 

\ fonction LINE en Assembleur 8086 
\ pour ecran EGA ou VGA 2 couleurs 
hex 


\ Vidage de La page 0 

code cls0 
0000 # ax mov A000 # cx mov 
CX es mov 0000 # di mov 
4000 # cx mov  OOF2 c, 0048 c, 

next end-code 


\ vidage de (a page 1 

code cis1 
0000 # ax mov  A800 # cx mov 
CX es mov 0000 # di mov 
4000 # cx mov  0OF2 c, 00AB c, 

next  end-code 


\ Allumage d'un pixel 

\ En fonction de La page concernée, une instruction de cette 
\ routine pointée par La variable PD sera modifiée par Les 
\ commandes LO ou L1. 


variable pd 
code pset 
ax pop 


CX pop 
ax bx mov \ dans BX, on transfère La 


2 

bx shl \ coordonnée y, et on la è 
bx shl \ multiplie par 5, puis on |? 
3 

A 


ax bx add \ ajoute A000, avant de 
OF # bh and \ sauver cette valeur dans 
forth here 2+ pd ! assembler \'initialisation de PD 
A0 # bh or \ Le registre segment ES 4 
bx es mov \ qui pointe donc La Ligne |2 
€X bx mov \ dans BX, on transfère la 12 
bx shr \ coordonnée x, et on La 2 
\ divise par 8 pour repé- |2 
\ rer l'octet. Dans CL, on |2 
07 # cl and \ calcule Le # du bit, que |4 
80 # ax mov \ l'on prend pour décaler |4 
at cl ror \un bit dans AX. 
\ Puis on 18+6*#bit 
al O0 es: tbx] or \ affiche Le pixel. lé 
next end-code 


\ Tracé d'une ligne droite 

\ En fonction de la Page concernée, deux instructions 
\ de cette routine, pointées par Les variables PA et PB 
\ seront modifiées par Les commandes LO ou L1. 


variable pa 
variable pb 
code line 

dx pop cx pop bx pop 

bX -2 Crp]l mov \ y 

1 # ax mov 

bx dx sub  O< 

if 

ax neg dx neg 

then 

ax “4 [rpl mov \ signe(y2-y1) 

bx pop 

EX -6 [rp] mov \ x1 

1 # ax mov 

bX cx sub  O< 

if 

ax neg cX neg 

then 

ax -8 [rp] mov \ signe(x2-x1) 

O0 # bx mov 

cx bx add 

dx bx add 0<> 

if  \si CY2-YD)=(x2-x1)=0, c'est fini 


cX dX cmp \ sinon: 
O< 
if  \si (x2-x1)>(y2-y1) 
dx shl dx -0C [rp] mov 
cx dx mov cx di mov 
cx shl CX -0A [rpl mov 
begin \ boucle interpolation pixels 
-2 Erp] ax mov 
-6 Crp]l cx mov 
-8 [rpl cx add 
-0C [rp]l di sub  O< 
if 
-OA (rp] di add 
-4 [rpl ax add 
then 
ax -2 [rp] mov CX -6 [rp] mov 
ax bxX mov \ ds BX, on transfère La 12 
bx shl \ coordonnée y, et on La [è 
bx shl \ multiplie par 5, puis on |2 
ax bx add \ ajte A000, avant de [3 
OF # bh and 
\ sauver cette valeur dans [4 
forth here 2+ pa 1! assembler 
AO # bh or  \ Le reg segment Es [4 
bx es mov \ qui pointe donc La Ligne |2 
cx bx mov \ dans BX, transfère [a 2 
bx shr \ coordonnée x, et on la [a 
bx shr \ divise par 8 pour repé- [2 
bx shr \ rer l'octet. Dans CL, on [2 


07 # cl and \ calcule Le # du bit, que |4 


80 
al 
al 
dx 


# ax mov \ l'on prend pour décaler [4 
cl ror \ un bit dans AX. Puis on |[8+4*#bit 
0 es: [bx] or \ affiche Le pixel.  |16 
dec  0= 

until 
else \ si au contraire Cx2-x1)<(y2-y1) 
cx shl cx -0C Erp]l mov 
dx cx mov cx di mov 
cx shl cx -OA [rpl mov 
begin \ boucle interpolation pixels 
-2 [rp] ax mov 

-6 [rpl cx mov 
-4& Crp]l ax add 
-0C Crp] di sub 
O< if 
-OA Crpl di add 
-8 [rpl cx add 
then 
ax -2 [rp] mov 
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cx -6 [rpl mov 


ax bx mov \ dans BX, on transfère La |2 

bx shl \ coordonnée y, et on la 2 

bx shl \ multiplie par 5, puis on |2 

ax bx add \ ajoute A00D, avant de 3 

OF # bh and \ sauver cette valeur dans |4 

forth here 2+ pb ! assembler 

A0 # bh or \ Le registre segment ES A 
bx es mov \ qui pointe donc La ligne |2 

cx bx mov \ dans BX, on transfère la |2 

bx shr \ coordonnée x, et on La è 

bx shr \ divise par 8 pour repé- |2 

bx shr \rer l'octet. Dans CL, on 2 

07 # cl and \ calcule Le # du bit, que |4 
80 # ax mov \ L'on prend pour décaler |4 


at cl ror \ un bit dans AX. Puis on 


|8+4*#bit 
al 0 es: (bx] or \ affiche Le pixel. |16 
dx dec 
0= until 
then 
then 


next  end-code 


\ Affichage de La page 0 
code p0 

0500 # ax mov 10 int 
next  end-code 


\ Affichage de La page 1 
code pi 

0501 # ax mov 10 int 
next  end-code 


\ adaptation des routines PSET et LINE 
\ à La page 0 ou 1 (EGA). 


: LO AO pa à c! A0 pb a cl A0 pd à c! ; 
: L1 A8 pa 9 c! A8 pb à cl A8 pd à cl ; 


decimal 
\ initialisation des modes graphiques EGA 
\ et VGA monochromes. 


: vga 17 mode 320 HE ! 240 VE ! PO LO ; 
: ega 16 mode 320 HE ! 475 CE; 


\ À ma connaissance, Le mode VGA ne permet d'accèder qu'à La 
\ page 0. Dommage ! 


ee 


LISTING 2: 3DJ.FTH 
\ Paul KOPFF 


\ Perspective et visualisation de structures 3D 
\ TurboFORTH 


Cette application utilise une routine LINE 
Langage machine, qui trace 1 pixel / 5.5 us 
au Lieu de ceile de GRAPHIC. fth (1 pixel / >60 us) 


rar 


variable HE ( demi-largeur de L'écran en pixels ) 
variable VE ( demi-hauteur de l'écran en pixels ) 


include Lina.fth 


Les fonctions PSET et LINE du fichier LINA.fth 
n'utilisent pas INT 10 pour appeler La fonction PIXEL 
du BIOS, mais modifient directement La mémoire d'écran 
du Toshiba. Pour l'instant, ces fonctions supportent 
Les modes VGA et EGA monochrome du 75200 (mais je 
pourrai Les adapter à d'autres modes graphiques quand 
j'aurai une documentation technique suffisante.) 


cr 


IL n'est pas sûr que ces routines conviennent à 
d'autres machines, mais j'ai préfèré donner La priorité 
à La vitesse. Rien n'empèche d'utiliser à La place, 
LINE de GRAPHIC.fth, mais alors, on 


rm 
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\ voit Les dessins se tracer; avec mes routines, c'est 
\ instantané. 


\ En tous cas, c'est encore à perfectionner! 


\ Avant d'entrer dans Le vif du sujet, une fonction 
\ racine carrée: Son argument d'entrée est un entier 
\ double (32 bits). Les résultats sont ( --- racine 
\ carrée , résidu), où résidu est analogue au reste = 
\ de La division entière. 
: sart Cd ---n,p|d=p*p+tn) 
edup or : 
if -32768 
begin 


dup >r dup *d 2over d- rà um/mod 
swap drop 2/ r> swap ?dup 
while - 
repeat 1- >r ra rà *d d- drop r> 
then ; 


Les approches classiques du problème de La projection 
perspective reposent sur L'utilisation de matrices de 
déplacements dans l'espace (translations et 
rotations), qui ramènent La perspective au cas 
particulier frontal (où Le plan de l'image est 
confondu avec un plan de coordonnées). La projection 
perspective est alors très simplifiée; mais Les 
matrices de déplacements contiennent des cosinus 
directeurs (et nécessitent donc des capacités de 
calculs trigonométriques). 


ceci 


Au lieu d'ajouter à FORTH des fonctions 
trigonométriques, j'ai adopté une autre approche 
mieux adaptée aux possibilités intrinsèques de ce 
langage. 


CCC 


\ En se référant à la figure 1: 


\ Un observateur placé en P dirige sa vision vers 0. 

\ Tous Les points M de La scène qu'il regarde seront 

\ projetés par "sa" perspective sur un plan image PI : 
\ perpendiculaire à son axe de vision. Pour fixer ce 

\ plan image, on supposera qu'il contient O et que Sa 

\ référence horizontale est son intersection avec Le 

\ plan horizontal absolu x0y de La scène. * 


Les points de La scène sont connus par Leurs 
coordonnées 3D, X, Ÿ et Z, dans Le repère de référence 
absolu Oxyz. Leurs images dans la perspective de 
l'observateur doivent être définies par Leurs 
coordonnées H et V, dans Le repère Ohv du plan image. 


CCC 


\ Le problème de La transformation perspective revient 
\ donc à cette transformation de coordonnées. 


\ Elle peut s'exprimer par Les opérations vectoriel les 
\ suivantes: 


\ > > -> > -> > 
\ OI = OP * € OP © MP ) / Ç OP * MP ) 


\ où “ désigne un produit vectoriel et * un produit 
\ scalaire, dans l'espace des vecteurs 3D. 


\ Cette formule peut être très facilement programmée, 

\ car elle ne fait intervenir que Les coordonnées de M : 
\ et P dans Le repère absolu Oxyz. Les composantes du 

\ vecteur OI qui en résulte sont également connues dans 

\ ce même repère. Les exprimer dans Le repère Ohv, 

\ demande simplement deux produits scalaires de plus: ; 


\ “> -> ° -> > 
\ H = OI * OH V = OI * OV 


\ Le problème est donc résolu sans cosinus directeursi 


\ La programmation de cette application en FORTH comprendra 


\ 


\ 


\ 


plusieurs couches logicielles: 
1ère couche: gestion et calcuts pour vecteurs 3D 


Définition d'un objet 3-vecteur 


: 3-vecteur create 6 allot ; 


\ triplet de nombres de 16 bits 


Manipulations entre pile et mémoire 
3v! 6 0 do dup i + rot swap ! 2 +Loop drop ; 


: 3va 0 4 do dup i + à swap -2 +Loop drop ; 


eo 


Manipulations sur La pile 


: 3vdup 3 0 do 2 pick loop 


: 3vswap 3 0 do 5 rolt Loop : 
: 3vrot 3 O do 8 roll Loop : 


: 3vover 3 0 do 5 pick Loop ; 
LA 


: 3vdrop 3 0 do 


drop loop :; 


\ Addition et soustraction de vecteurs 3D 
: 3v+ 3 roll + swap 3 roll + rot 3 roll + swap rot ; 
: 3v- 

3vswap 3 roll - swap 3 roll - rot 3 roll - swap rot : 
\ Produits scalaïres et vectoriels de vecteurs 3D 


re et 


On apparentera ces fonctions aux opérateurs */ et al. 
Données et résultats sur 16 bits, calculs 

intermédiaires sur 32 bits. 

Vi, V2,s --- [V1*V2]/s scalaire ou [V1”V2]/s vecteur 3dim. 


: 3v* 


>r 3 roll *d 2swap 4 roll *d 
rot 5 roll *d d+ d+ r> m/mod swap drop :; 


: 3v° 


>r 4 pick over *d 3 pick 6 pick 
*d d- r@ m/mod swap drop 

4 roll 4 pick *d 3 roll 7 pick 

*d d- r@ m/mod swap drop 

5 roll 3 roll *d 4 roll 5 roll 

*d d- r> m/mod swap drop ; 


module d'un vecteur 3D 


: module 


3- 


3- 


3- 


dup *d rot dup *d d+ rot dup *d dt sgrt swap drop ; 


2ième couche: fonctions de base de La 
transformation perspective 


La scène et l'observateur sont repérés dans Oxyz. 
Un repère lié à La position de l'observateur est 
construit: 


vecteur P \ vecteur OP: 
\ point de vue de l'observateur dans Oxyz. 


vecteur H \ horizontale OH: 
\ intersection du plan de projection 
\ perpendiculaire à OP avec Le 
\ plan horizontal Oxy. 


vecteur V \ frontale OV: 
\ perpendiculaire à OP et à OH. 


variable R \ module du vecteur OP. 


variable T \ module de La projection de OP sur Oxy. 


variable S \ facteur d'échelle S associé au rayon 


\ 
\ 


\ d'une sphère contenant La scène. 


OP étant donné, Le mot point_de_ vue calcule OH et Ov, 
et des facteurs d'échelle R et T. 


i point _de_vue ( OP --- j 
3vdup P 3vi \ Le vecteur OP est sauvé dans P 
3vdup module R ! | son module est Sauvé dans R 
3vdup 3vdup rot rot or \ vecteur OP est-il // à Oz ? 
if \ sinon calcul de T,Het V 
2drop O0 module T ! 
3vdup drop negate 
R 9 T à */ swap 
R 9 T 9 .*/ O H 3v! 
negate rot over 
T à */ rot rot 
T@ */T à V 3v! 
else \ si oui, trivial. 
drop rot H 3v! 
negate rot rot V 3v! 
then 
\ Le mot vision transforme Les coordonnées 3D d'un 
\ point M de La scène en Les coordonnées 2dim de sa 
\ projection perspective sur Le plan OHV, en tenant \ 
compte du point de vue OP. 


\ Un vecteur OM perpendiculaire à OP est transformé en 
\ vraie grandeur. 


: vision ( OM --- h,v } 
P 3V@ 3vVdup 3vrot 3v-  3vover 3vover 
R 9 3v* 3V° P 3va 
3vswap  R à 3v° 3vdup  V 3vVa R à 3w* >r 


H 3VA RQ 3v* r> ; 


\ Le mot ECRAN transforme ces coordonnées h,v brutes en 
\ coordonnées pixel tenant compte du rayon de La scène 
\ S et des résolutions : 

\ verticales et horizontales de l'écran (dans HE et VE). 


: ecran ( h,v --- H,V ) 
VE à dup rot S à */ - >r VE à S à */ HE 4 + r> ñ 


\ 3ième couche: définition de fichiers fil_de fer: 

\ Un nombre CRD de sommets définis par leurs coordonnées 
\ dans Oxyz, 

\ Un nombre CNX de connections à tracer entre Les 

\ sommets, défini par La suite des numéros de sommets à 
\ joindre, plume baissée si positif et plume Levée si 

\ négatif. 


\ Les mots qui suivent définissent des objets de type 
\ fil.de_fer. Quand on Les crée, on ÿ mémorise des 

\ coordonnées et des connections. Quand on Les invoque 
\ (comme une commande FORTH), ils se dessinent 

\ suivant Le point de vue courant initialisé par 

\ POINT DE_VUE. 


variable CRD \ compteur pour Le nombre de sommets 
variable CNX \ compteur pour Le nombre de connections 
: sommet ( #sommet --- H,V ) 

6 * CRD à + 3va 

\ dans la table des sommets récup X,y,z 

vision 

\ transformation perspective x,y,2 -> h,v 

ecran \ mise à l'échelle écran h,v -> H,V ; 
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: segment € Hi-1,Vi-1,adri --- Hi,Vi ) 
q \ adri -> + ou - Un numéro de sommet 
dup abs sommet \ calcul de Hi,Vi 
rot 0> \ était-ce + ou - ? 
if \ si + on trace La ligne 
2dup rot line 
else \ si - on y va plume Levée 
2swap 2drop 
then ; 
: dessin € adr --- ) 
dup CRD ! 


\ dans CRD, début de La table des coordonnées 
du 4+as1! \ dans $, Le rayon de La scène 
\ puis bouclage sur La table des connections: 
dup à 1+ 6 * over + dup rot 2+ à 2* + swap 0 0 2swap 
do i segment 2 +loop 
èdrop ; 


\ fil_de_fer sera un nouveau nom de définition à utiliser en 
\ conjonction avec C pour entrer des coordonnées X pour 
\ entrer des connections et end_fil pour fermer Le fichier. 


: fil de fer (€ s --- ) 

create 4 allot \ on réserve nombre de sommets adr 

\ nombre de connections adr+2 
, { virgule ! ) \ on sauve rayon de La scène  adr+4 
0 CRD ! O CNX I \on initialise Les deux compteurs 

\ La suite du travail est effectuée par Les fonctions C X 

\ et END_FIL 

\ À l'exécution, Le dessin est automatiquement tracé 
does> dessin ; 


\ Acquisition d'un sommet (3 coordonnées ) 
: COX,Y,Z "7 ) 

sr (3 virgules ! ) 

4 CRD +! \ et incrémentation de CRD 


. 
# 


\ acquisition d'une connection (+ ou - numéro de sommet) 
: X C+-#sommet --- ) 
dup abs CRD à <= \ vérif si dans intervalle 1...CRD 
if , (virgule ! ) \ si oui, acquisition 
4 CNX +! \ et incrémentation de CNX 
then ; 


Pour clore un fichier de type fil_de_fer 

end_fil C--- ) 
Last 9 name> >body \ on recherche Le début du mot 
CRD à over ! \ on sauve Le nombre de sommets 
CNX 9 swap 2+ |! \ on sauve Le nombre de 

connections ; 


Ld 


\ Le fichier source DEMO.fth contient un certain nombre 
\ d'exemples de mots de type fil_de_fer. 


\ Leur utilisation: 

\ on définit un point de vue 

2400 2200.3300 point_de_vue 

\ et on Les invoque simplement par Leur nom. 


\ REMARQUE: Tous Les calculs opèrent sur des entiers 16 

\ bits, avec parfois des phases intermédiaires sur 32 bits. 
\ On a particulièrement fait attention à ne pas dégrader La 
\ précision. Cependant, il est important que la précision 
\ initiale soit correcte: Le vecteur POINT DE _VUE devrait 

\ avoir un module de 5000 à 25000, et La scène doit bien 


\ remplir une sphère de rayon minimum 2500. 


LISTING 3: 3DJA.FTH 

\ Paul KOPFF 

\ Animation de perspectives en temps réel TurboFORTH 
\ Cette application constitue une couche logicielle 


\ supplémentaire à 3DJ. Elle permet à un opérateur de 
\ visualiser une structure fil_de_fer en changeant de 
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façon progressive et interactive de point_de_vue. 

Les changements de point de vue qui seront considérés 

- Rotation autour d'un des axes de coordonnées de 0Xyz 
Attention: c'est Le point de vue qui tourne, pas 
l'objet ! 

- Rapprochement où éloignement suivant une direction 


er 


Ces fonctions sont surtout intéressantes quand on 
dispose d'une machine très rapide: sur mon 
15200/20Mhz, des dessins simples sont animés de façon 
pratiquement continue, et des fil_de_fers comprenant 
une cinquantaine de segments de 100 à 150 pixels en 
moyenne, sont rafraîchis à raison de 5 images par 
seconde. 


cé 


\ Etant donné une vitesse de rotation: 
variable omega 


\ On initialise un vecteur O dont Le module est OHEGA et 
\ qui est dirigé suivant OX, Oy ou Oz. 


3-vecteur O0 

: rx (€ omega --- ) 00 O 3vi ; 

: ry (€ omega --- ) 0 0 rot rot © 3v! ; 

: rz ( omega --- }) 0 0 rot O 3v! : 

\ La rotation d'un vecteur P autour de l'axe portant Le 
\ vecteur O s'exprime par une séquence de calculs 

\ comprenant en particulier des produits vectoriels de 
\ Pet O. 


: pas 
P 3vVa O 3va  3vover 3vover 
R93vV* R@3V* 2/ rot 2/ rot 2/ rot: 3v- 
3vdup O 3Va R à 3V° 3v+ point _de_vue ; 


\ Association des touches X Y Z aux changement d'axes 
\ de rotation et aux changement de sens de rotation. 
variable axe 

3 case: taxe rx ry FZ ; 

: raxe omega à axe à taxe ; 

: tx omega à negate omega ! O axe ! raxe ; 

: ty omega à negate omega ! 1 axe ! raxe ; 

: tz omega à negate omega ! 2 axe ! raxe ; 


\ Association des touches V et D aux variations de 
\ vitesse de rotation 

\  Vplus vite 

\ D plus doucement 


5 4 2constant po 
: tv omega à dup abs 500 < 

if po */ then omega ! raxe ; 
: td omega à dup abs 5 > 

if po swap */ then omega ! raxe ; 


\ Association touches P et L variations de perspective 
\ L plus loin 

\ P plus près 

21 20 constant pp 

: tL'R @ 25000 < 


if P 3 3 0 
do pp */ rot loop point_de_vue 
then ; 
: tPRASAQ2* > 
if P 30 3 0 
do pp swap */ rot Loop point_de vue 
then ; 


variable objet 


\ Deux autres touches fonctions 

\ _S$ stop ou step: arrêt sur image et pas à pas 
\ A aggrandissement d'une image fixe EGA -> VGA 
: ts begin key? until ; 

: ta vga objet d execute ts ega ; 


\ Toute autre touche rend La main à FORTH 


\ Fonction de selection des touches fonction 
: modif 


key? if 

key case ascii x of tx endof 
ascii y of ty endof 
ascii z of tz endof 
ascii v of tv endof 
ascii d of td endof 
ascii L of tl endof 
ascii p of tp endof 
ascii s of ts endof 
ascii a of ta endof abort endcase 

then ; 


\ Interface utilisateur 


\ Le mot REMUE attend comme argument un mot de type 
\ fil_de fer 


\ par exemple REMUE CUBE 


\ IL sauve son adresse d'exécution dans La variable OBJET 
\ puis boucle sur son exécution alternée dans Les 2 pages 
\ EGA tout en détectant Les manoeuvres des touches fonction 
: remde ! objet ! ega 
begin 
PO CLS1 L1 objet à execute pas modif 
P1 CLSO LO objet à execute pas modif 
again ; 


FICHIER &: DJ.FTH 
echo off 

include 3DJ 

include 3DJA 


\ dodecsedre regulier 


800 fil_de_fer dodeca 
-459 O0 601 c -142 -436 601 c 371 -270 601 c 371 270 601 c 
-142 436 601 c -742 O 142 c -601 -436 -142 c -229 -706 142 


c 
229 -706 -142 c 601 -436 142 c 742 O0 -142 c 601 436 142 c 
229 706 -142 c -229 706 142 c -601 436 -142 c -371 270 -601 
c 

-371 -270 -601 c 142 -436 -601 c 459 0 -601 c 142 436 -601 
c 

-18 x TX 5x -6x 15x-17 x 16 x 
13x -16x 20x 13 x 12 x 
10x 3x 2x 


-8x 7 x 


17x 7x 6x 


15XxX 14 x 5x 4x -14 x 

EX 3x -12x 
-10 x 9x -19 x 
end_fil 


11xX -20 x 19 x 11 x 
18x 9x 8x 2x 1x 


\ rhomboëèdre 

2100 fil_de_ fer rhombo 

1000 -1000 0 c 1000 0 1000 c 1000 1000 0 c 

1000 O0 -1000 c 0 -1000 -1000 c 0 -1000 1000 € 

0 1000 1000 c 0 1000 -1000 c -1000 0 -1000 c 

-1000 -1000 O0 c -1000 0 1000 c -1000 1000 0 c 
"TX2xX3xX7x12x11x7x2x6x11x10x6x 1% 


5x 10x9x12xX8x3x4x8x9x5x4x 1x 
end_fil 


\ cube 

2100 fil_de_fer cube 

1000 1000 1000 c 1000 1000 -1000 c 1000 -1000 1000 € 
1000 -1000 -1000 c -1000 1000 1000 c -1000 1000 -1000 c 
-1000 -1000 1000 c -1000 -1000 -1000 c 
-TxXSx6x8x-5x7x8x4 x -7 x 3 x 4 x 2 x -3 x 
Tx2x6x 

end_fil 


\ octaedre regulier 


2100 fil_de fer octa 

2000 0 c 0 2000 O0 c 0 0 2000 c 

-2000 0 0 c O0 -2000 O0 c 0 0 -2000 € 
-3xXT1X2X6x5x4x3x2x4x6x1x5 x 3 x 
end_fil 


\ avion 

: xa 16 2 do i x Loop ; 
3000 fil_de_fer avion 

2600 -350 300 c 1300 -600 O0 c 1000 -3500 300 c 0 -3500 
300 c 

0 -600 O0 c -2600 0 1000 c -2600 -1800 1050 c -1600 
-1800 1050 c 

-1300 0 1000 c 400 -400 1000 c 900 -400 1000 c 1200 -550 
600 c 

1200 550 600 c 900 400 1000 c 400 400 1000 c -1600 1800 
1050 c 

-2600 1800 1050 c -1600 0 2000 c -2600 0 2000 c 0 600 0 
c 

0 3500 300 c 1000 3500 300 c 1300 600 0 c 2600 350 300 
c 

2700 -350 500 c 2700 350 500 c 600 -500 600 c 600 500 
600 c 

-1 x xa 9 x 16 x 17 x 6 x 9 x 18 x 19 x 6 x 20 x 21 x 22 
X 23 x 20 x 5 x 2 x 23 

X 24 x -25 x 26 x 24 x 1 x 25 x 12 x 27 x 10 x 15 x 28 
X 13 x 26 x -11 x 14 x 
end_fit 


: reset 7000 7000 7000 point_de_vue 220 dup omega ! rx 
vga ; 


echo on reset remue avion 


r LIBRE PROPOS 


ACCES AUX INTERRUPTIONS... 


ms 


par Marc PETREMANN 


Dans l'article ANIMATIONS 3 D, Paul KOPFF touche du 
doigt Un problème crucial: doit-on utiliser 
systématiquement Les fonctions d'interruptions ou 
travailler en accès mémoire Lors d'opérations 
travaillant en mode graphique? 


Sa solution est certes de loin La meilleure sur Le plan 
du rendement. Mais alors, pourquoi dispose-t-on d'une 
routine d'interruption? 


A l'origine, Le premier système IBM PC (les clones 
n'existant même pas) ne disposaient d'aucun mode 
graphique ni gestion de couleur. Maïs malins comme Le 
sont Les concepteurs de BIG BLUE, ils ont anticipé en 
mettant à disposition une case avec un code d'accès (INT 
10, fonction 00H pour Le mode vidéo, 05H pour sélection 
de page, OCH pour traçage d'un point). Ce principe 
garantit à tout concepteur que sa fonction graphique 
tournera avec n'importe quelle carte vidéo existante ou 
à venir. 
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Comment fonctionne une interruption? Une interruption est 
appelée dès que Le code opérateur INT est activé et passe 
comme paramètre Le numéro de l'interruption choisie. Ii 
existe 256 interruptions possibles. Dès Lors, Le processeur 
80xx ou 80xxx va Lire dans Le premier segment mémoire de La 
RAM une suite de quatre octets situés à l'offset 
inuméroINTxé. Ainsi pour l'interruption 10h (éd), 
L'adresse du vecteur est située en 0000:0040h: Le contenu de 
ces quatres octets dépend ensuite du BIOS de votre système. 
Un programme peut modifier ce contenu pour rediriger une 
interruption. 


Le constructeur déconseille de passer outre une fonction 
d'interruption; si c'est le cas, it ne garantit plus La 
portabilité de vos programmes. 


Mais Lisez plutôt l'anecdote suivante: 


Une revue mensuelle m'a commandé très récemment deux 
articles concernant Le test de systèmes portables: un SHARP 
PC 286, 40 Mo DD, écran LCD émulation VGA et un portable 1BM 
ps/2 80386 MO Mhz, 140 Mo DD, écran à plasma. 


Pendant que je bricolais un peu sur Le SHARP, un quidam 
passant par La pièce où j'opérais, a lancé un programme de 
test standard (créé par PC Magazine US) qui vous vérifie La 
vitesse d'affichage, l'indice NORTON, et tout le bazar et 
recrache un topo complet prêt à recopier, le tout en deux 
minutes; rien d'anormal. 


Moi, bête programmeur FORTH que je suis, et ne disposant pas 
de ces merveilleux Logiciels d'exploration, j'installe TURBO 
d'abord sur Le SHARP. Tiens, si j'essayais Le mode graphique 
VGA, si bien émulé. Pas de problème jusqu'au mode 18 (VGA 
640x400 16 couteurs). OUUUIIILLLEEEE!!! Le curseur ne se met 
pas tout en haut à gauche à l'exécution d'une simple 
commande 0 0 PSET mais au milieu dernier quart droite de 
l'écran!ili Aurai-je mal tapé quelque chose? Mon programme 
est-il-bogué? Aussitôt j'avise Le COMPAQ 80286 placé 
derrière moi. Je relance TURBO et GRAPHIC et teste D 0 PSET: 
Le pixet s'allume en haut à gauche, ce qui est Le 
comportement normal et attendu de ma routine graphique. 


Une fois mon papier pondu au sujet du SHARP, je repasse Le 
Lendemain pour décortiquer Le PS/2 d'IBM. Installation de 
TURBO-Forth et premiers essais: une boucle 0 à 1 millions en 
0,69 sec... pas mal! Voyons maintenant Le mode graphique, 
également émulé pour ce qui est du VGA: 


INCLUDE GRAPHIC 
18 MODE 

15 GCOLOR 

0 0 PSET 


Je ne refais pas Le OUUUIIILLLEEEE! 1! mais plutôt un M.... 
bien senti! J'appelle Le service technique IBM:" vous n'avez 
rien vu d'anormal en mode VGA 187 (je résume, car Les 
grosses sociétés, c'est toujours 10 mn de standard et 
secrétaires avant d'avoir un technicien compétent). 


Pour moi, L'affaire est grave. Plusieurs réponses possibles: 


- Le driver d'émulation VGA du SHARP et du PS/2 IBM sont 
identiques (qui a copié sur qui?) et bogués, 

- j'ai du oublier de remettre à zéro un paramètre; mais 
alors pourquoi celà fonctionne-t-il bien sur COMPAQ? 


A ce jour, je n'ai pas La réponse, mais je relancerai Les 
services "compétents! d'IBM. En conclusion: Les tests 
standards ne détectent pas Les bogues. Grâce à TURBO et Le 
hasard, j'ai mis le doigt sur un fait quasi-établi chez Les 
constructeurs de machines et chez Le pape IBM lui-même: on 
définit une routine d'interruption, mais on ne l'utilise 
pasii Qui plus est, cette routine est fausse, mais on s'en 


moque... 


Et pourquoi Les constructeurs s'en priveraient-ils? Tous 
Les programmes doivent court-circuiter les interruptions 
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pour être performants. 


Alors pourquoi encombre-t-on Les machines avec des BIOS 
monstrueux et des DOS mamouthesques puisque Les 
Logiciels apportent Leurs propres routines. 


Pour mémoire, avec un CP/M tenant en 12K, on arrivait 
déjà à faire des merveilles. Puis avec DOS 3.x on 
franchit les 64k de mémoire occupée.. occupée à quoi? 


Et maintenant avec 0S/2 prenant pas Loin de 500 Ko, nous 
ne sommes pas Loin d'occuper un espace mémoire aussi 
vaste que celui utilisé par un compilateur ADA!!! 


Je crie: HALTE A L'ESCROQUERIE!! Arrêtez de pondre des 
machines ressemblant à un VELOSOLEX motorisé avec un V12 
de CHEVROLET. Ceci ressemble à La course aux armements. 


Conclusion: je ne conseille pas l'achat de tel ou tel 
système, ni ne souhaite casser La réputation d'un 
quelconque constructeur. Je constate, plus que je ne 
dénonce, Les aberrations auxquelles nous nous trouvons 
de plus en plus fréquemment confrontés en tant que 
programmeurs . 

| | 


q= TEÉLEMATIQUE —————-"T# 


| [ 
| CONTENU DU FORUM SAM*JEDI 
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RENTREE EN FORTH DANS FD DE JUILLET: 


SILICON COMPOSERS Lance Le SC32 premier Stack-Chip muP 
Forth 32-bits: 

- un cycle par instruction a 8 ou 10 MHz 

- 16 gigabyte non-segmented data space 

- 2 gigabyte non-segmented code space 

- piles illimitees (sauf taille memoire) 

- Non-Multiplexed 32-bit address bus and data bus 

- $195 Le chip 84-pin ceramic CMOS 

- $1995 La carte coprocesseur // pour PC/XT/AT/386 
avec 64Ko zero wait RAM Livree avec SC/Forth32 extension 
a 32 bits du F83 Standard. 


SECRETAIRE 05.08.89 23h37 
SORTIE DU MODULE 7 (APRES 
LE MODULE 8...): 

- DESASSEMBLEUR TF83 

- TOURS DE HANOI 

- POURSUITE (UN JEU 
STYLE PACMAN...) 

- VERSION AMELIOREE DE 
HALT.FTH 

° VISU 
DIGITALISEES 


D'IMAGES 


ET QUELQUES AUTRES 
FICHIERS. EN TOUT, PRES 
DE 100 KO DE SOURCES EN 
FORTH. PRIX 37 FR EN 
TIMBRES DE PREFERENCE A 
COMMADER À ASSOCIATION 


PAROLE 
JEDI 17, RUE DE LA Pan 
LANCETTE 75012 PARIS. 
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SECRETAIRE 05.08.89 23h41 
CHALLENGE: JE DONNE TOUJOURS DES TRUCS MAIS MAINTENANT 
JE VOUS FAIT BOSSER: 


4 MODULE 7 EN CADEAU AU PREMIER QUI ME DONNE UNE 
DEFINITION DE -PICK SUR CE FORUM (J'EXCLUE DU CHALLENGE 


(suite page 17) 
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CORDICFP : UNE BIBLIOTHEQUE 
DE CALCUL EN VIRGULE FLOTTANTE 
A PRECISION PARAMETRABLE 


par CHRISTOPHE LAVARENNE 


ingénieur conseil en informatique temps réel 


EN BREF 


Une bibliothèque originale de calcul en virgule flottante est présentée. L'algorithme unifié 
CORDIC, sur lequel elle est basée, est d'abord présenté et justifié, montrant sa simplicité, son auto 
suffisance quel que soit le nombre de bits significatifs requis, et son efficacité pour la manipulation 
des nombres complexes. Les choix faits pour son implantation sont ensuite discutés, au niveau de 
la portabilité sous Forth83, de l'éfficacité, et de la compatibilité avec les standards IEEE. Enfin, 
quelques mesures de performances sont comparées avec celles d'une bibliothèque de calcul en 
virgule flottante classique basée sur les approximations polynomiales. 


INTRODUCTION 

CORDICFP est basée sur l'algorithme unifié de Volder, qui traite la plupart des fonctions 
mathématiques élémentaires dans un cadre unique basé sur les "rotations généralisées" (CORDIC 
est un acronyme pour COordinate Rotation Digital Computing). 

L'algorithme est facile à implanter, en logiciel comme en matériel, pour un nombre quelconque de 
bits de précision, car les seules opérations requises sont les décalages (bit-shifts), accumulations 
(addition et soustraction), et rappel de constantes, elles-mêmes précalculées au moyen de ces seules 
opérations. 

La complexité spatio-temporelle de l'algorithme est pratiquement proportionnelle au carré du 
nombre de bits de précision (comme pour une simple multiplication), ce qui le rend plus efficace 
que les méthodes d'approximations polynomiales pour les fonctions transcendentales. 

Comme le domaine de convergence de l'algorithme est limité, des changements d'échelle pré- et 
post-opératoires sont nécessaires pour les calculs en virgule flottante. La représentation la plus 
commune des nombres réels en virgule flottante, avec mantisse normalisée et exposant binaire 
séparés, est la mieux adaptée à l'algorithme et aux changements d'échelle. 


BASES MATHEMATIQUES 


Les fonctions hyperboliques et trigonométriques sont liées par les relations : 


sinh(z) = -j.sin(j.z) 
cosh(z) = cos(j.z) avec: j? = -] 
atanh(z) = -j.atan(j.z) 


Ces fonctions élémentaires peuvent être présentées dans un cadre unique, en introduisant les 
fonctions suivantes paramètrées par m, avec m=1 dans le cas trigonométrique, m=-1 dans le cas 
hyperbolique, et également définies pour m=0, cas dit linéaire : 


-Gsin(z) = ml2,sin(ml2.7) Gsin(z)--> z 
m->0 Gcos/(z) + m.Gsin(z) = 1 
Gcos(z) = cos(ml/2.z) Gcos(z) --> 1 
eo Gtan(z) = Gsin(z) / Gcos(z) 
Gatan(z)= m°l/2atan(ml2z) Gatan(z)--> 2 
m-> 
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Rotations généralisées 
Les rotations généralisées sont définies dans le cadre d'un ensemble de systèmes de coordonnées 


paramètrés par M, dans lesquels le rayon R et l'angle À du vecteur P=(x,y) sont définis par : 


R = signe(x).(x2+m.y?)!? => x = R.Gcos(A) signe(x>=0)=1 

A = Gatan(y/x) y = R.Gsin(A) signe(x<0)=-1 

m=1 (trigonométrique) m=0 (linéaire) m=-1 (hyperbolique) 
R = signe(x).(x2+y2)1/2 R=x R = signe(x).(x2-y?)!/2 
A= atan(y/x) A = y/x A = atanh(y/x) 

x = R.cos(A) x=kR x = R.cosh(A) 

y = R.sin(A) y = R.A y = R.sinh(A) 


Toute rotation d'angle da et conservant le rayon, transformera le vecteur Pen P' suivant : 


A'= À + da => | x'| | Gcos(da) -m.Gsin(da) IX 

R'= R | y'|i = | Gsin(da) Gcos(da) 1.1 y | 
que l'on peut aussi écrire : 

L x'| | 1 -m.Gtan(da) | | x | 

L yv'l = Gcos(da).l Gtan(da) 1 Lt. 4° A 


Les rotations élémentaires suivantes, semblables au précédentes bien que ne conservant pas le 
rayon pour m=1 et m=-1, sont beaucoup plus intéressantes parce qu'elles ne nécessitent que des 
décalages binaires et des accumulations (additions ou soustractions) : 


Qænp D 1 -ms.2%1 1x] <=> "= À + S.a 
| y = 182878 à |. 1 y "= X.R 

s = +1 (signe de chaque rotation élémentaire) 

a = Gatan(2”) (module de chaque rotation élémentaire) 

k = 1/Gcos(a) = [1 + m.Gtan2(a)]!/2 = (1 + m.2°22)1/2 (facteur radial) 

m=1 (trigonométrique) m=0 (linéaire) m=-1 (hyperbolique) 

a = atan(2”) a =2" a = atanh(2"®) 

k=(1+ 2-2n)1/2 k=1 k=(1- 2"2n)1/2 


La composition de plusieurs rotations élémentaires produit une variation angulaire À égale à la 
somme arithmétique des a; élémentaires, et un facteur radial K égal au produit des k; élémentaires : 


À = 2: Sa; = >. s..Gatan(27i) 

K=T,k;= 17, (1 + m2)? 
On montre par la suite qu'il existe pour chaque m une séquence déterminée de rotations 
élémentaires, c'est-à-dire une séquence déterminée de n,, pour laquelle : 
- il existe une séquence s; pour tout À tel que [AI < > a; 


- K = 27, réduisant ainsi à un seul décalage la réduction du facteur radial 


Ainsi, pour une telle séquence de N rotations élémentaires, une rotation quelconque se fera en 
seulement 2N décalages et 2N accumulations, et la variation angulaire correspondante sera 


l'accumulation de N constantes (les Gatan(2”i)). 
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Identités 
Ces identités mathématiques permettront le calcul des constantes et les changements d'échelle 


permettant de ramener aisément les nombres codés en virgule flottante dans les domaines de 
convergence de l'algorithme : 


avec |z|<1 : 
Gatan(z) = >. 


po(m)izl/(2i+1) 


avec M dans [-1,-1/2[U[1/2,1[ (MI<1 converge): 
(M,.2Ë:).(M,.2Ë2) = (M,.M,).2ExtEz 
M,.26)/M,.25) = (M/M,)-2Ë7 Ex 


avec z = R + Q.(x/2) (x/2=1.57, IR|<1.74 converge): 


avec r<4 et Q=4.q+r sin(z) = cos(z) = 
quandr=0 sin(R) cos(R) 
quandr=1 cos(R) -Sin(R) 
quandr =2 -sin(R) -Cos(R) 
quand r = 3 -Cos(R) sin(R) 


tan(z) = sin(z) / cos(z) 


quand |z/>1 (atan(z) converge pour [z|<1): 
atan(z) = (x/2) - atan(1/z) 


avec z = R + Q.log, (2) (1og.(2)=0.69, [R|<1.13 converge): 
sinh(z) = 2®1{[cosh(R) + sinh(R)] - 2-2U[cosh(R) - sinh(R)]} 
cosh(z) = 2%1{[cosh(R) + sinh(R)] + 2? [cosh(R) - sinh(R)]} 
exp(z) = eZ = 2Q[cosh(R) + sinh(R)] 


tanh(z) = sinh(z) / cosh(z) 


avec z = M.2Ë, 1/2<M<1 (0.10<M<9.58 converge): 
In(z) = log,(z) = -2.atanh[(1-M)/(1+M)] + E.n(2) 


avec z = M.2, E pair, 1/2M<2 (0.03<M<2.42 converge): 
21/2 = 2ŒÆ72)-1 [(1+M)2-(1-M)2] 1/2 


avec [z| = 1-M.2Ë, E>0 pair, 1/2<M<2 : 
atanh(z) = atanh[(1-M+z)/(11M+z)] + (E/2).n(2) 
(-22)/2 2 2-81 (14M+2)2-(1-M+z)/]l2 
avec |z|<1 (asin(1)=x/2): 


asin(z) = atan[z/(1-z2)!/2] 
acos(z) = (x/2) - asin(z) 
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L'ALGORITHME CORDIC 


La séquence s; est déterminée par approximations successives : 
chaque rotation élémentaire a=Gatan(2"i) est accumulée à l'angle z (de la rotation à approximer) 
avec un signe s; choisi de manière à forcer z vers zéro. 


Rotation 
Les approximations successives et les rotations élémentaires sont décrites par les équations 


itératives suivantes : 


Xi = Xi m.s;.y;.2 "i avec s; tel que : z,11=11zl- & | 
Yu=Yit S.x;.27i c'est-à-dire : si z;<0 alors s;=-1 sinon s;=1 
Z. = Z;- Si; ou encore : s; = signe(z; 

i+1 1 11 1 1 


P5=(XosŸ 0) subit une rotation d'angle z, donnant Pa=(XapYn) avec : 


m=0 
XN = K.[x-GcoS(z9) - m.y9-Gsin(zo)] XN = Xo 
YN = K.[x9-Gsin(zo) + Yo GCOS(Z))] YN = Yo + Xo-Zo 


Vectorisation 

Les mêmes équations itératives et séquences de rotations élémentaires peuvent être utilisées pour 
faire subir au vecteur P=(x,y) une rotation d'angle A=-Gatan(y/x), simplement en forçant A, 
c'est-à-dire y (au lieu de z) vers ZÉTO : 


X1= Xi" m.s.y;.27i avec s; tel que : y; ut=tlyl-1x2%11 
Yu = it Si.x;.2i c'est-à-dire : si (y;/x;)20 alors s,; =-1 sinon s, =] 
Zi, =Z-Syâ Où EnCOre : S,= -signe(y;).signe(x;) 


Po=(XoYo) ESt vectorisé (subit une rotation de -A), pour donner : 


m=0 
R=xN= K.signe(xp).(xg2+m.y2)l/? XN = X9 
À = ZN”Z0 = Gatan(yo/xo) ZN = Zo + (Yo/Xo) 
Critère de convergence 
L'algorithme sera dit converger en N itérations si : 
(1): lAKl < an rotation: Ay=ZN vectorisation: A=Gatan(yy/xn) 


A chaque itération 1, la somme des rotations élémentaires restantes doit être suffisante pour amener 
A, à au plus ay; de ZÉrO : 
N-1 
Q):Aj-2a, < ani 
j=i 


même dans le cas extrême où (A, = Ü) <=> (IA,1l = 4) soit d'après (2) : 
N-1 
(3): a < any + D à; 
j=i+l 
En posant (-a; < lA;l-a;) eten combinant avec (2) et (3), on obtient : 
N-1 
(@): HA;l- ail < ani +2 a; 
j 


=i+l 
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Comme l'algorithme par approximations successives garantit : 
(S} lA,1l=1H1Ai-al 
on en déduit que si (2) et (3) sont vérifiées pour i, alors (2) est également vérifiée pour i+1. 


En conséquence, pour que (1) soit verifiée, il faut et il suffit : 
- que (2) soit vérifiée pour i=0 (ce qui borne le domaine de convergence de l'algorithme) 
- que (3) soit vérifiée pour tout i : 


Pour m=0, la relation (3) est vérifiée avec la séquence (n,,,=n;+1) 

. _— 9-0; -(n:+1) a _ ee 
car:a=2%=2920i#)e2a =a +28... d,ptaiiote +2. 
avec n,=1 la relation (2) donne pour domaine de convergence : lAIS1 


Pour m=1, la relation (3) est vérifiée avec la séquence (n920, n,,, =n;+1) 

car 4, < 2.8.4, Car a, = atan(2"i) < 2.atan(2(i+l)), car 2.atan(z) = atan(2.z/(1-z2)] 
d'où : a, < 2.4, < 4,1+2.4;, < .… < di täi,ot+2.an 

avec n,=0 la relation (2) donne pour domaine de convergence : lAlS1.74 (K=1.65) 


Pour m=-1, atanh(z) = z + z3/3 + o(25) pour [zI<l, 
donc pour z>0, atanh(z)-atanh(z3/2) < z < atanh(z), donc pour k < 3i+1: 
N-1 
atanh(21) - atanh(2) < 21 < atanh(2-N-1)) 4 Y atanh(2) 


J=i+ 
En conséquence, la relation (3) est vérifiée avec la séquence : 
(n9>0, n,,=n;+1), excepté (n=p;=n; 41) avec (poS3-n5+1, P; 41S3.p;+1) 
avec n,=1, la relation (2) donne pour domaine de convergence : lAjl< 1.13 (K = 0.80) 


Réduction des facteurs radiaux 
En généralisant le mécanisme de répétition nécessaire à la satisfaction du critère de convergence 
pour m=-1, il est facile de répéter certaines rotations élémentaires de façon à obtenir : 


K=2"m 
Le critère de convergence reste satisfait, car les rotations élémentaires supplémentaires sont 
soustraites du membre gauche de l'inéquation (2), et le domaine de convergence s'en trouve 
étendu. 


La table suivante donne le nombre de répétitions pour chaque différent n; dans le cas de flottants de 
mantisse définie sur 24 bits (plus 1 bit de signe): 


née, OT .2 3 4.5 67:89:10 A1 12 13: 14 16 16. ./1256 

mer Ad 288 4-2, 82 AS CS, À JL À. EE % TT te N=47 
MO OA EL AL Le A, 4. A OÙ À 21 EL 1 «, € N=25 
MEL 10° 4 22022 2:2.8..81 4, Ad» À 2 A À 1 « N=46 


Pour m=1 comme pour m=-1, le nombre total d'itérations est moins du double, soit un peu moins 
de l'équivalent d'un cycle linéaire supplémentaire (pour m=0, aucune répétition n'est nécessaire 
puisque K-1). 


Dans le cas de Gatan, non concernée par le facteur radial K, ou même dans le cas où K peut être 
balancé par un 1/K initial (xo=LK et y,=0 donneraient après rotation sans répétition xn=Gsin(zo) et 


Yn=Gcos(z,)), cette méthode présente un surcoût équivalent à un cycle linéaire. 
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Dans le cas de la racine (et donc de l'arc-sinus et de la conversion coordonnées cartésiennes- 
pôlaires), le facteur K est inévitable, et son élimination par une division par K (ou une 
multiplication par 1/K) coûterait un cycle linéaire, soit un peu plus que la réduction par répétition. 


Par contre, dans le cas des transformations sur les nombres complexes (rotation vectorielle où 
conversion coordonnées pôlaires<->cartésiennes), le facteur K doit être éliminé pour x et pour y, ce 
qui coûterait deux cycles linéaires, soit l'équivalent d'un cycle linéaire de plus que pour la méthode 
par répétition. 


Dans le cas d'une implantation matérielle de l'algorithme, la méthode par répétition l'emporterait 
pour son uniformité, les répétitions étant de toute manière inévitables pour satisfaire le critère de 


convergence hyperbolique. 
Dans le cas de CORDICFP, qui est une implantation logicielle de l'algorithme, on a bien sûr choisi 


Ja méthode la moins coûteuse dans chaque cas. 


IMPLANTATION 
Largeur des registres et précision 


Les valeurs chargées dans les registres (mantisses signées et normalisées des flottants à traiter) sont 
toujours dans l'intervalle C-1,-1/20 U (172,10 
La précision de l'algorithme, définie par sa dernière itération grâce aux critères de convergence, doit 


être meilleure que le celle du bit le moins significatif des mantisses, soit, pour des nombres flottants 
de mantisses définies sur L bits (plus 1 bit de signe): 


Gun) = Ixnxnl <ImaxGN2 TNT S 2N1 <2L 
AN) = YN-Yx1l S Imax(x)|.22N-1 < 2PN-1 < 2L 
O(ZN) = | ZN-ZN1l < AN-17 2"N-1 < 2L 


soit au minimum : nn = L+l 


Comme K=2 pour m=1, les registres x et y doivent pouvoir contenir des valeurs dans l'intervalle 
(-2,-1/2{ U [1/2,2[, ce qui convient également pour le registre z qui contient pour m=1 des valeurs 
au plus égales à x/2=1.57 (cf IDENTITES dans BASES MATHEMATIQUES). 


En conséquence, les registres doivent avoir au moins un bit entier de garde. 
Comme les registres sont de longeur finie, chaque accumulation (une par itération) induit une erreur 
de troncature égale à la moitié du bit le moins significatif, soit N/2 fois le bit le moins significatif 
pour N itérations. Comme N<2(1+L) (voir réduction du facteur radial), le nombre G de bits de 
garde des registres doit Être au moins : 

G 2 Supflog,(1+L)] (Sup = valeur entière par excès) 


et les constantes Gatan(2”i) doivent être précalculées avec (L+G) bits de précision, afin que la 
propagation des erreurs de troncature s'arrête avant le bit le moins significatif des mantisses. 


Au total, le nombre LG de bits d'un registre gardé doit donc être au moins : 

LG>2+L+6G (bit de signe, bit entier, bits significatifs, bits de garde) 
Dans le cas d'une implantation matérielle, les registres et chemins de données auront LG bits. 
Dans le cas de CORDICFP, chaque registre ou constante est stocké dans un nombre entier LM de 
mots mémoire de 16bits (d'adresse paire, la plupart des processeurs actuels privilégiant ce type 
d'adressage) : | 


LM = Sup(LG/16) (Sup = valeur entière par excès) 
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Génération des constantes 

Pour m=0, le calcul des 2* est trivial, permettant une économie de stockage importante. 

Dans le cas d'une implantation matérielle, la logique de décodage d'adresse pour N constantes 
génère N lignes d'adresses, dont une seule est à l'état haut, générant ainsi directement les 2. 

Dans le cas d'une implantation logicielle avec des mots mémoire de 16bits, le stockage contigü des 
2 (matrice de bits diagonale) fait apparaître une périodicité T=(16*LM-1)mots ; en conséquence, il 
suffit d'une zone de stockage de 17*LM mots, et on trouvera la constante 2'i à (G*LM)modulo(T) 
mots du début de cette zone ; ces adresses peuvent être précalculées. 


Pour m=1 et m=-1, les Gatan(2) sont calculées par leur développement en série limité : 
avec i>0: Gatan(2i) = 2, m}.2G)/(2j+1) 


Pour chaque j, 1/(2j+1) est calculé en une vectorisation linéaire, et pour chaque i, le résultat est 
décalé 1.(2j+1) fois avant d'être accumulé à la ième constante (avec un signe négatif pour m=1 et j 
impair). Les termes tels que i.(2j+1)2(L+G) ne sont plus significatifs ; en particulier, pour 
i2(L+G)/3, seuls le terme en j=-0 est significatif, et comme ce terme vaut 2'i, seules les (L+G)/3 
premières constantes doivent être stockées, pour m=1 et pour m=-1, les autres pouvant être 
générées comme dans le cas linéaire. 


Avec i=0 pour m=1, le développement limité converge encore, mais désespérement lentement; 
atan(2-0) est plus rapidement obtenue par vectorisation trigonométrique avec xÿ=yY=1 et Zp=0 qui 


donne zy = atan(x,/y,) = atan(1) = atan(2 0); la série (no=1, 2,1 = n;+1) suffit, car elle ne nécessite 
que les atan(2) calculées précédemment pour i>0, et son domaine de convergence est 0.96 > 
atan(1) = x/4 = 0.79. 


Le logarithme naturel de 2, nécessaire aux identités de changement d'échelle pour m=-1, s'obtient 
par vectorisation hyperbolique : 


log, (2) = -log,(1/2) = 2.atanh{[(1-1/2)/(1+1/2)] 


Portabilité 

La portabilité des données est assurée en suivant le standard IEEE, tant au niveau ASCII (notation 
exponentielle et format libre) qu'au niveau binaire (les nombres peuvent être stockés et récupérés 
aux formats mémoire IEEE 32 et 64 bits). 


CORDICFP a été conçue et écrite en vue de sa portabilité sous Forth83 : développée à l'origine en 
NEON sur Macintosh, sa première version commerciale (distribuée par la société anglaise MPE) a 
été écrite en Modular-Forth sur IBM/PC et sur RTX2000, une seconde version (distribuée par 
l'association Jedi) a été portée en Turbo-Forth sur IBM/PC, et une version est en projet sur 68000 
(probablement en Volks-Forth sur Atari); une version matérielle est également en cours d'étude. 


L'efficacité de CORDICFP dépend essentiellement d'une dizaine de primitives (transferts de 
registres avec décalages ou accumulations). Une version Forth83 de ces primitives permet un 
portage immédiat sur différents processeurs, et donne le fil conducteur pour leur implantation en 
assembleur, pour une exécution globalement dix fois plus rapide environ. 


Performances 

Les performances (millisecondes) donnés ci-dessous ont été mesurés sur un PC/AT Compaqll 
(processeur Intel 80286 à 8MH/z) en Turbo-Forth avec la version assembleur des primitives, pour 
24, 53 et 112 bits significatifs de mantisse. A titre de comparaison, les temps mesurés dans les 
mêmes conditions pour la bibliothèque F-PACK (approximations polynomiales, mantisses 32 bits) 
sont donnés entre parenthèses; le graphique permet une meilleure comparaison, en rapportant les 
temps au nombre de bits significatifs. 
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La multiplication de F-PACK est implantée avec UM* qui utilise le multiplieur du 80286 (13 cycles 
d'horloge pour un produit 16*16); CORDICFP produira une performance équivalente dans ses 
prochaines versions, au prix d'un codage particulier de la multiplication. 

impression de F-PACK est également plus efficace, car elle porte sur une mantisse 32bits pour 
laquelle sont faites les routines de conversion ASCII qui utilisent le diviseur du 80286 (25 cycles 
d'horloge pour une division 32/16). 
Partout ailleurs, CORDICFP est beaucoup plus efficace, surtout bien sûr pour les fonctions 
manipulant des nombres complexes, et montre une corrélation quasi-linéaire entre le temps 
d'exécution et le nombre de bits significatifs. 


(32) 24 53 112 FONCTION 

(1.2) 1.6 1.7 1.8 addition et soustraction 

(1.2) 5 10 22 multiplication 

(8) 5 . 10 22 division 

(21) 13 28 69 racine carrée 

(22) 13 28 69 logarithme népérien 

(31) 10 21 49 exponentielle 

(40) 11 21 49 sinus et cosinus hyperboliques 
(30) 13 27 65 sinus et cosinus trigonométriques 
(33) 17 35 87 tangente trigonométrique 

(49) 26 55 134 arc-sinus et arc-cosinus trigonométriques 
(30) 13 27 66 arc-tangente trigonométrique 

(67) 21 45 105 conversions et rotation complexes 
(19) 31 58 124 impression d'un nombre 


Performance comparatives (ms/bit) 


@- Fpack 32bits  ‘O- Cordic 24bits  ‘M- Cordic 53bits ‘T- Cordic 112bits 


nu re Dan orne amnnnnns fran} 
ra nnnnnanannnnnnnnnnnnennnnnnennns < PUR. ORNE 11 NE CE 
Ds | A ee 0 
û | CL 5 
. [eu 


add mul div sgr log exp sinh sin tan asin atan rot imp 


BIBLIOGRAPHIE 
AHMED, 1981 

Signal processing algorithms and architectures Ph.D, Elec Eng Dept., Stanford Univ, 1981 
COCHRAN, 1972 

Algorithms and accuracy in the HP-35, Hewlett-Packard journal, pp10-11, June 1972 
HAVILAND-TUSZYNSKI, 1980 ; | 

A cordic arithmetic processor chip, IEEE Transactions on Computers volC29 no2, Feb 1980 
VOLDER, 1956 

Binary computation algorithm for coordinate rotation and function generation 

Convair Report IAR-1148 Aeroelectronics Group, June 1956 
WALTHER, 1971 

À unified algorithm for elementary functions, Spring Joint Computer Conf 1971, pp379-385 


Christophe LAVARENNE, 12 rue du Docteur Vuillième, 92190 MEUDON, FRANCE. Tél: (33-1) 45071341 


(suite de [a päge 8) 


FORTH7, SINON CE N'EST PLUS DU JEU... 


IL NE M'EN VOUDRA 


PAS.) 


-PICK REMET A UNE 


POSITION N DE LA PILE UNE VALEUR 


PRÉDEPOSEE SUR SON SOMMET : 


EXEMPLE : 


TAPX 
REPONSE AU CHALLENGE DE 


Cette solution n'est certes ni 
Compäcte (on pourrait ecrire 


VAL N --- 


12 15 18 DEPOSE 3 VALS SUR LA PILE: 
10 1 -PICK . .. 


AFFICHE 18 10 12, 10 AYANT REMPLACE 15. 


09.08.89 03h44 
SECRETAIRE (05.08.89 23h41 ) 
î -PICK € val n -- ) 

1+ SWAP OVER DUP 1- >R >R >R ROLL DROP 

R> R> R> O DO pup >R ROLL R> LOOP 

DROP ; 


la plus rapide ni La plus 
directement dans 


Operande par l'intermediaire du registre de Pile) mais elle 


a 


au moins Le merite d'etre hyper-portable, 


ou elle n'exploite pas les particularites intimes du FORTH 


sur (equel elle est implantee (raison pour laquelle, 
d'ailleurs, elle n'est ni la plus rapide, ni La plus 
Compactel). 


(De plus, L'intimite de TF83 m'est inconnue: faut bien se 


trouver des 


excuses!11), 


And may the FARCE be with You !!1 BYE. 


SECRETAIRE 
TRES BIEN, 
8. 


A 


09.08.89 10h29 
TAPX A GAGNE UN MODULE TF83 DE SON CHOIX M1 À 
+ QU'IL ME RAPPELLE SES COORDONNEES DANS MA BAL, SVP. 
PEUT SERVIR DES OPERATEURS NON 


QUOI -PICK? A FAIRE 


DESTRUCTIFS A LA MANIERE DE C: 


empi lage À 
empi l'age B 
empilage O0 pour resultat 

"> APPEL PROCEDURE 

1 PICK 2 PICK + 0 -PICK 

<-- RETOUR DE PROCEDURE 
exploitation Parametre RESULTAT 
depilage B 
depilage À 


VOICI LA PREMIERE PIERRE D'UN COMPILATEUR € POUR GENERER DU 
CODE FORTH. 


SECRETAIRE 09.08.89 15h26 


NOUVEAUX SOFTS 


EN TELECHARGEMENT : 

FORTH 1: 

DIGIT.FTH ET MOIRES.GRS POUR VISU D'IMAGES DIGITALISEES 
FORTH 4: 

HALTI,FTH, VERSION AMELIOREE DE HALT.FTH 


FORTH 6: ASSMF32.FTH NOUVEAU TIRAGE DE L'ASSEMBLEUR F3a, 
PAS FINI, MAIS DONT LA Doc SITUEE APRES EOF INDIQUE LA 
LISTE DES MNEMONIQUES EXPLOITABLES 


Avec Desassembleur) ET BYE. MAINTENANT, LE NOUVEAU TURBO 
EST LANCE PAR TFAD DEPUIS DOS. A+ 


SECRETAIRE 09.08.89 15h38 

LA NOTORIETE DE TURBO-FORTH NE CESSE DE S'ACCROITRE AU 
NIVEAU INTERNATIONAL : EN EFFET, UNE UNIVERSITE DE 
SILESIE, EN POLOGNE, VIENT D'EN COMMANDER UN EXEMPLAIRE. 


TURBO-FORTH PASSE A L'EST. A QUAND UNE DEMANDE DE 
LENINGRAD OÙ MOSCOU... s] ELLE N'EMANE PAS DU KGB1! 


NOUS AVONS DEMANDE A FAIRE INSCRIRE LES COORDONNEES DE 
SAM*JEDI DANS L'ANNUAIRE DES SERVEURS FORTH PUBLIEE 
REGULIEREMENT PAR LA REVUE FORTH DIMENSION. ESPERONS 
QUE NOTRE DEMANDE SOIT PRISE EN CONSIDERATION. 

FORTH7 09.08.89 20h26 
PILES PRIVEES -1- 

Les programmes complexes font quelque fois de {a pile un 
tel echeveau qu'on s!y perd entre les Düp SWAP et [es 
“ROT ‘n ROLL meme a lancer des -PICK ..… 


Si fragmenter Le probleme en mots plus Simples reste la 
il arrive qu'on se dise qu'une deuxieme Pile 
aiderait a s'en tirer. Un exemple: ALEPH gere (es 
variables locales avec Une 2eme pile. 


ere technique: definir la pile (CREATE STACK xx ALLOT) 
et toute sa mecanique (LIFO OU FIFO). Je n'y reviens 
Pas: c'est decrit partout et bien transportable. 


2eme technique: modifier Le pointeur interne de La pile 
Forth. En TF-8088 on utilisera SP9 et SP! en sachant que 
la pile pousse vers le bas et qu'il est delicat de 
changer Le Seégment de pile ss . 
L'avantage est de récuperer pour cette 2eme pile toute 
la librairie de la pile usuelle, 


VARIABLE Sp 
VARIABLE Sp2 


\ pointeur pile usuel le 
\ pointeur 2eme pile 


1 S2 C-- ) À Passe sur pile 2 

SPA SP 1 Ssp2 9 SPI ; 
5 -S2 € -- 3 À retour pile usuel le 

SPA SP2 ! Sp Q SPL ; 
Facile alors de definir des opérateurs pour [La pile 
privee: 

: UDUP S2 pup -S$2 : 
Je passe vite sur L''empi L'age-depi l'age qui reste 
classique: 

: UPUSH -2 Sp2 +1 sp2 a 1 ; 

: UPOP  SP23a 2 SP2 +1! ; 


3eme technique (de plus en plus Forth): utiliser Le 
multitache. Chaque nouvelle tache possede sa propre 
Pile: Les manipulations de SP que nous venons de voirs 
ont deja toutes pretes dans La gestion multitache de TFI 


J'ai Longtemps cru que le multitache F83 etait un gadget 
ou Un exercice de style du Savoir-faire Forth (on s'est 
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trop arrete 8 BACKGROUND : ) . IL a meme ete question de 
L'exclure du noyau {mais il eut fallu virer aussi Les USER 
devenues inutiles!) en arguant que Le multitache ‘serieux 
serait desormais l'affaire des nouveaux DOS -.. 


La mult iprogrammat ion est une des voies pour apprehender Le 
gigantisme qui commence a nous cerner de toutes parts: 
developper Le muttitache FORTH est une PRIORITE: Le Langage 
s'y prete si bien. 


FF32 10.08.89 21h21 

DE MES ILES BRETONNES JE VOIS LE FORUM REPRENDRE VIE, BRAVO. 
DANS UNE DIZAINE JE RENTRE CHEZ MOI ET REPRENDRAI LE BATON 
DE PELERIN POUR F32. PAS DE REACTION SUR LE SIMULATEUR S32. 
COMMENT FAIRE? POUVEZ TOUJOURS ME PARLER, J'ECOUTE. POUR LES 
PARISIENS, PRENONS RDV POUR LA SEMAINE 4 AOÛT - 


GARY 11.08.89 00h32 
GARY SMITH, LITTLE ROCK USA: 

IF ANY OF YOUR ASSOCIATION MEMBERS HAVE ACCESS TO UusenetIT 
WOULD MAKE ELECTRONIC CONTACT WITH YOU MUCH EASIER. BOTH 
THE FIG CHAPTERS COORDINATOR, JACK WOEHR (JAX) AND MYSELF 
(GARS) ARE EASY TO CONTACT VIA Usenet. ÎF POSSIBLE PLEASE 
CONTACT ME AT ONE OF THE FOLLOWING: 

Lames! chinet.chi.iL.us !UUCPIgATS 

sun cgl .ucsf.EDUtuet .us tUUCPIgars 

welLigarsalll-winken.arpà 

Sunt por tal eup por tel .com.us !UUCP Gars 


Best regards, 


1APX 11.08.89 02h48 

L'idee de FORTH7 consistant à permettre L'utilisation de 
plusieurs piles , en evitant Les (trop) classiques >R R> et 
autres Ra , est tout a fait interessante. Bravo, donc, 
FORTH7. 


Mais puisque nous partons de pile, notion quelque peu 
fondamentale en FORTH(1), j'ai egalement une suggestion a 
soumettre aux honorables participants de ce FORUM. Il 
s'agirait de joindre a tout element present dans la pile 
(operande) une valeur indiquant le type de cet element 
(valeur sauvegardable soit dans cette meme pile, soit dans 
une seconde pile): Ainsi tout element serait identifiable, 
ce qui permettrait à Un mot donne de reagir differemmen 
selon Le type des parametres presents dans La pile Lors de 


son execution. 
Exemple : Le mot ‘+! seraît definit ainsi: 


si Les elements sont des entiers (VAR) > + classique 
si les elements sont des pointeurs chaine -> addition 
chaine 

si Le premier element est un pointeur chaine et Le second 
un entier *> conversion de l'entier en chaine et addition 
chaîne (et vice-versa) --.. 


IL ne serait plus necessaire de distinguer !.! de TYPE, ! 
de Ci, ‘+! de APPEND$, une adresse courte d'une adresse 
Longue, un pointeur car d'un pointeur entier, chaine, double 
mot. 


ceci eviterait La multiplication de mots realisant la meme 
fonction mais portant un nom different car agissant sur des 
elements differents - Par exemple, DUP et 2pup, DROP et 
2proP, Ca et a (pourquoi pas &DUP,  4DROP et 24 ?) 
s'appeleraient simplement DUP, DROP et 

a. 


pe plus , ce systeme allegerait notablement Le travail du 
programmeur reatisant d'une part des taches que le 
programmeur est aujourd'hui oblige de specifiers Lui 
permettant d'autre part d'ecrire des routines polyvalentes 
qu'il ne serait pas necessaire d'ecrire en 10 exemplaires 
pour que Leur mode d'execution soit flexible . 


Cette idee s'oppose quelque peu aux FORTHS que nous 
utilisons, bien que ce ne soit pas mon propos (que les 
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inconditionnels maitrisent Leurs envies 

d'assassinat!). En effet, ces FORTHS ne connaissent 
jamais le type des elements Sur lesquels Les mots 
agissent, ce qui permet une grande souplesse. Mais rien 
n'empeche dansl'hypothese d'un FORTH connaissant Le type 
des elements, de creer des routines de conversion de 


type. 


Je precise que cette idee n'est pas mienne: elle a ete 
applique (un peu moins fondementalement que ce que je 
propose ; mais de facon assez poussee pour en entrevoir 
Les possibilites) SUr la calculatrice de poche (pub) de 
la gamme28 de chez HP; son langage est tres proche du 
FORTH (en un peu mins permissif et plus specialise 
(scientifique)). Le resultat est tout a fait genial, 
bien que L'application de cette idee fasse quelque peu 
souffrir Les performances (vitesse) de La machine . 
Enfin bon, veut-on un Langage genial ou une machine 
rapide? À Ceux qui veulent une machine rapide, je 
repondrais qu'ils n'ont qu'a programmer en assembleur 
(surtout pas en FORTH) en € ou en PASCAL: beaucoup de 
perdu. Aux autres je demande de reflechir a cette idee. 
Quant aux inconditionnels, j'accepterais volontiers 
Leurs critiques censees et objectives - | 


Ayant ecrit Un FORTH "classique", projettant d'ecrire 
(en FORTH bien sur) un FORTH tel que decrit ci-dessus, 


j'attends avec impatience toute suggestion. 
BYE. 


FUTUROSCOPE 


SECRETAIRE 11.08.89 09h02 

REPONSE À IAPX, je constate tout d'abord qu'il s'est 
couche bien utot". Ceci dit, son intervention est tres 
pertinente. En effet, FORTH souffre un peu de cette 
proliferation de traitements divers infliges aux types 
de donnees extremement disparates: VARIABLES CONSTANT 
STRING 2VARIABLE etc... 


Mais point n'est besoin de re-ecrire FORTH: il suffit 
de passer par La definition d'objets. 


Je m'explique, mais en operant au prealable une petite 
digression par Le C (ou PASCAL où BASIC... au choix). 


Pour exemple, Le printf de € traite indifférement des 
chaînes litterales, nombres Litteraux, constantes, 
variables flottants, etc... 


Mais si d'aventure vous definissiez un nouveau type; 
complex par exemple, il n'est pas possible de lui 
appliquer printf. IL faudra definir une fonction 
specialisee. 


Si maintenant on définit 50 types de données avec pour 
chaque type au moins une demi-douzaine de fonctions de 
traitement, ceci nous fera au moins soit 300 fonctions 
differentes a gerer, que ce soit en C, PASCAL ou meme 
FORTH. 


Je connais ce probleme de la proliferation des primitives, Fa. Pour ce faire, il faudrait definir un type FVAL en 


car en construisant mon programme de tele-saisie, j'ai tant qu'objet. 
affronte ce cas. Et j'ai resolu ce casse tete en appt iquant 
tout simplement Les principes deja diffuses dans RSINIT.FTH Pour resumer, depuis que j'ai applique La notion de 
avec CREATE..METHODS>. L.0.0. (Langage Oriente Objet) a la manipulation de mes 
donnes FORTH pour Les nouveaux types, j'ai pu 
Exemple: soit trois termes generiques de traitement: considerablement simplifier mes programmes et ameliorer 
GET pour saisir depuis Le clavier sensiblement Leur lisibilite. 
STORE pour affecter depuis La pile 
PRINT pour afficher Je souhaite et desire meme que L'on poursuive plus avant 
et une collection de donnees: Le developpement des outils L.0.0. pour FORTH, car ça me 
VALUE: pour des flottants, semble plein de promesses. 
DATE: pour des dates, format JJ/MM/AA 
STRING: pour des chaines Sans refondre FORTH, on reservera l'usage des primitives 
au developpement de La couche L.0.0. comme aïtleurs on 
Dans mon programme, on peut faire des utilise l'assembleur. 


operations du style: 
SECRETAIRE 11.08.89 14h01 


5 VALUE: tva ANIMATION FIL DE FER 3D 
: STORE-TVA 1" 18.6! STORE TVA ; TEMPS REEL: GRACE AUX 
10 STRING: l'ibelte NOUVEAUX PROGRAMME 
: GET-LIBELLE 30J.FTH DJ.FTH 3DJA.FTH 
GET LIBELLE ; ET LINA.FTH QUI ANIMENT 
: traitement ( ---) EN PERSPECTIVE 3D UN 
Store-tva get-libelle OBJET A L'ECRAN. 
cr print tva FONCTIONNE SUR SYSTEME 
cr print Libelle : EQUIPE VGA OÙ EMULATION 
VGA. ADAPTABLE AUX AUTRES 
PRINT s'applique aussi bien a TVA qu'a LIBELLE et peut SYSTEMES. DEMO 
s'appliquer à n'importe quel nouveau type de donnees declare EPOUSTOUFLANTE SUR MON 
par la suite. COMPAQ 80286 
8 
Comment resoud-on Le probleme des primitives? Partons FORTH7 11.08.89 
simplement d'une disposition X Y des donnees et traitements: 21h50 
OBJECTIF OBJETS: C et 
GET STORE PRINT Pascal sont en train de 
demontrer qu'un langage 
VALUE: get-val store-val print-val peut se mettre aux OBJETS 
DATE: get-date store-date print-date sans perdre sa 
STRING: get-str store-str print-str specificite propre. Le 
Forth-Objet existe deja a 
Avec trois traitements et trois type de donnees on a deja 9 des degres divers: notre 
primitives. Secretaire fait La preuve 
qu'une implementation F00 
Dans La realite, mon programme de telesaisie ne comporte tres simple peut etre tres efficace. 


pas moins de 7 traitements et 6 type de donnes. 
Mais nous sommes encore en pleine mouvance: Les LOO 


Ainsi, en ecrivant simplement: introduisent une  foute de nouveaux concepts: 
instanciations, heritages, methodes, messages, classes, 
5 VALUE: tva Sous-classes et metaclasses, surcharge, encapsulation, 
10 STRING: libelle parallelisme, early and late binding... 
DATE: jour-depart 
: TEST ( ---) Tous ces concepts sont bien developpes en Forth mais 
cr print tva nous n'avons pas encore de produit fini. Remarquez 
cr print Libelle d'ailleurs Les memes hesitations en C Pascal ADA et les 
cr print jour-depart ; autres sur La question "Jusqu'ou porter Les objets?". 
Puis en decompilant TEST par SEE TEST, on voit s'afficher: Je n'ose vraiment pas proposer La constitution d'un 
nouveau groupe de travail sur Les objectifs du 
: TEST Forth-Objet mais si vous avez des idees. 
CR TVA PRINT-VAL 
CR LIBELLE PRINT-STR Et si vous n'en n'avez pas, rendez-vous Les 24-26 Nov 89 
CR JOUR-DEPART PRINT-STR ; a Monterey au bord du Pacific, au congres FORML sur ce 
sujet! 


Rajoutez a tout ceci La possibilite d'affecter a une VALUE: 

indifferement une chaine ou un flottant, le traitement de OBJECTIVEMENT: si comme moi votre patron vous refuse Le 

flottants en notation infixee, on obtient ceci: Voyage en Californie sous pretexte que Le surf est trop 
dangereux en cette saison, voici un peu de lecture: 


FVARIABLE VAL1 


FVARIABLE VAL2 OBJECT-ORIENTED FORTH 
Implementation of Data Structures 
: TEST par Dick Pountain 
s... "18.6" STORE TVA ACADEMIC PRESS 1987 ISBN 0.12.563570.2 

FD C VALT FQ + VAL2 F9 ) F/ F' 2 1F 

STORE VAL2 ... : 116 pages de base trop courtes mais indispensables : 
records, abstract data, types, Lists, memory management 

nota: Le + est l'operateur d'addition en flottant quand il using a Heap... 


est utilise entre F[ et ]F. Je ne peut encore me passer des 
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LES LANGAGES ORIENTES OBJETS /Ct.Bailly 
ÉD.CEPADUES 1987 ISBN 2.85428.172.1 
220p de militaire approche (hors Forth) 


15.08.89 12h42 
quand on fait TYPE TEXTE.DOC' sur un fichier WordPerfect 
(ou autre TdTexte) c'est illisible. Rageant de devoir 


FORTH7 


charger WP seulement pour voir ses fiches!  Reprenant 
FILTER, me suis compile vite fait un filtre WPX.COM qui 
fait Le menage des codes WP et me permet de taper TYPE 
TEXTE.DOC | WPX' ou ‘TYPE TEXTE.DOC | WPX | MORE’... 
L'etait bien foutu MS-DOS quand meme! 


Quand je Lis dans Les magazines US Les sources en c de tels 
petits utilitaires je - me - fends - La - poire. 


FORTH7 19.08.89 14h46 

MULTIDEFINITIONS: dans Le n.52 de JEDI et telechargement, Ch 
MOHR offre avec PREFUNI une methode de multidefinition de 
types de donnees. 


si Les Litanies de VARIABLE ou CONSTANT ne sont pas vraiment 
genantes en Forth quand elles sont bien presentees, il faut 
considerer La multidefinition plus comme un jeu d'analyse 
syntaxique. 


IL est possible d'etendre L'interpreteur Forth pour 
installer un autre systeme de multidefinition generalise a 
tout type de donnee, multiligne, simple et sans containte. 


EXTENSIONS DE L'INTERPRETEUR FORTH. L'interprete Forth en 
execution est: 

1) je prends un mot dans Le flot source 

2) si je Le connais, je l'execute 

3) si c'est un nombre, je L'empile 

&) sinon je signale une erreur 


Il se trouve que l'etape 4 est vectorisee dans 3 justement 
pour permettre des extensions a l'interpreteur. 


Nous pouvons remplacer L'etape 4 par 4) je considere ce mot 
comme nouveau et l'ajoute dans ma base de connaissance 


(technique cognitive classique en 1.A.) 


DEFINITIONS GROUPEES: appliquons ce principe d'extension a 
La multidefinition pour creer Le mot GROUP tel que: 


GROUP <datatype> 


obiigera l'interpreteur a considerer tout nouveau mot comme 
etant a definir dans Le type de donnee <datatype>. 


Un mot END-GROUP rendra a l'interprète son fonctionnement 
normal. 


Voici sur l'ecran suivant un exemple de ce que donnerait 


l'utilisation de GROUP pour diverses donnees. Chacune 
utilise sa propre syntaxe de definition. 
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\ EXEMPLE DE DEFINITIONS GROUPEES 

GROUP VARIABLE AMELIE BENOIT CLAUDE 
| DENISE EUGENE FABIEN 

GROUP CONSTANT 32 CARTES \ sans joker 

50 PIONS \ commentaire 


30 ANNONCES 
80 ENJEUXS$ 


GROUP STRING 


GROUP WINDOW 20 20 TABLE 


40 10 MARQUE 


GROUP DEFER 
END - GROUP 


ACTION REFLEXION JEU 


DYNAMIQUE DE GROUP...: cette presentation groupee des 
donnees en jette a defaut d'etre indispensable! 


Les structures meme non standards sont groupables et on 
peut mixer des commentaires ou d'autres commandes. 


L'ecran suivant (seul) vous propose une definition de 
GROUP (F83 et TF). 


Le mot est securise en execution: il est bien-sur 
impensable de creer un mot en pleine compilation d'un 
autre! 


Votre chevalier JEDI, F7 


DEFER DATATYPE \ vecteur definisseur 
: BACKWORD  \ recul d'un mot dans flot 
>IN ® ‘WORD Ca - 1- O MAX >IN ! ; 


: END-GROUP € -- ) 
['} (NUMBER) IS NUMBER ; 


(GROUP ) 
NUMBER? NOT 
IF STATE à, 
IF END-GROUP TRUE ?MISSING THEN 
2DROP DPL OFF BACKHORD DATATYPE THEN ; 


\ definisseur implicite 


: GROUP ( <mot> -- ) 
1 IS DATATYPE 
C'1 (GROUP) IS NUMBER ; 


ie ——————————— 


FORTH7 25.08.89 20h49 

WRITELN(' Le silence eternel de ces') 
WRITELN(' espaces infinis m'effraie!) 
MRITELN(" Blaise PASCAL!') 


quand Le Forum est ainsi desert, je me console avec Le 
PASCALISSIME: depuis qu'il est en kiosque, je ne le 
manque pas. Equipe sympa, bons sujets, bonnes 

idees: un regal. 


Dommage que Les disquettes d'accompagnement ne soient 
pas PLUS cheres: on n'economise que 30 Frs a taper Leurs 
programmes en... FORTH. Une vraie misere ... 
a ———— 
SURRELYVES 28.08.89 22h13 

JEDI 52: PAGE 4 DANS LE COMMENTAIRE OUT...ENDOUT IL 
MANQUE L'AROBAS à APRES ENDOUT DANS L'EXEMPLE. 


DANS LE COMMENTAIRE DE IN...ENDIN, IL 
NUMEROTEES DE O À N-1 BIEN SUR... 


FAUT LIRE: 


PAGE 16: LE MOT EXEC: CORRESPOND AU MEME CONCEPT QUE 
OUT...ENDOUT COINCIDENCE! 


TT 


FORTH7 31.08.89 14h25 
TABLES DE PROCEDURES 
OUT EXEC: tout comme CASE: ou les CREÂATE table ] 


<proc>..<proc> [ sont diverses conceptions de tables de 
procedures en Forth. 


Chacune repond a un besoin propre avec son propre champ 
d'application: 

- nombre de vecteurs predefinis ou non 

- table externe (compilee a part) 

- table interne (dans une definition) 

- procedures simples (un seul mot) ou sequentielles 

- controle où non des limites de table 

- aptitude ou non a La revectorisation 

- premier indice 0 ou 1 ... etc 


Avec tout langage defini, lorsqu'on à besoin d'un modele 
complexe, il faut soit ‘faire avec' (ON GOSUB) soit 
bidouiller (GOTO 1000+100*N) 


Dans tous Les cas Le genie du programmeur consiste a adapter 
son projet aux outils dont il dispose. 


La demarche en Forth est generalement inverse: adapter 
l'outil au projet. 


Si on reprend EXEC: dont on admirera La simplicite: 
: EXEC: 2% R> + PERFORM ; 


on peut etre sur qu'il ne conviendra pas a toutes Les 
situations car n EXEC: force un EXIT (r> drop) sur 
l'execution du n+i mot qui suit EXEC: sans compter que n 
debute a zero ce qui n'est pas tres ‘intuitif! et que Les 
risques de plantage sont colossaux si n sort de La table 
EXEC: 


Et pourtant EXEC: est l'outil parfait du desassembleur. Tout 
autre eut ete trop lourd ou inadapte. 


Mais personne ne vous empechera de reprendre le principe 
d'EXEC: pour que la table puisse s'integrer dans une 
definition, debuter a l'indice 1, et verifier Le domaine de 
celui-ci. En voici un exemple: 


\ OF: (€ n nmax --- ) 
\ execute Le n-ieme parmi Les nmax mots qui suivent 


: OF: ( n nmax --- ) 
R> 2DUP SWAP 2* + >R -ROT MIN 1 MAX 
2* + 2 - PERFORM ; 


5 UN "UN"; 
: DEUX ." DEUX " ; 
: TROIS ." TROIS " ; 
: ESSAI (n---) 
3 OF: UN DEUX TROIS ." TOUR(S)" : 
1 ESSAI 
2 ESSAI 
3 ESSAI 


Remarquez ceci: en voulant ‘'ameliorer' Le comportement de 
EXEC: j'ai ecrit Le Le mot OF: dont Le moins qu'on puisse 
dire est qu'il est L AI D : 


- La definition est tant alambiquee qu'il est devenu 
impossible de La comprendre a sa seule lecture 

- Le mot est devenu ambigu: deux arguments sur La pile, 
l'un Libre, Le deuxieme devant etre pre-compile avant lui. 


La notation ( n nmax -- ) devient trompeuse (dangereuse). 


C'est un OUTIL -moche-. L'ideal serait de n'en conserver que 
sa FONCTION... 

à — + 
SECRETAIRE 04.09.89 16h50 

JE SUIS REVENU APRES 3 SEMAINES D'ABSENCE. BEAUCOUP DE 
COURRIER DANS MA BAL ET À PART FORTH7, PRESQUE PERSONNE NE 
S'EST EXPRIME DANS LE FORUM. LE SOLEIL A-T-IL DONC TAPE SI 
DUR QUE CA? 


ENCORE ET TOUJOURS: SI VOUS AVEZ DES PROBLEMES AVEC F83, 


TURBO-FORTH ET MAINTENANT F-PC, LE FORUM EST LA HOT-LINE 
CUN PEU DE FRANGLAIS POUR FAIRE GRINCER LES DENTS AUX 
FRANCOPHILES PURS ET DURS) DU FORTH. 


IDEM SI VOUS POTASSEZ F83 CP/M SUR AMSTRAD (OU SCHNEIDER 
POUR LES ACHETEURS DE MATERIEL MADE IN GERMANY), OU 
VOLKS-FORTH SU ATARI. 


UN  TURBO-TURBO: UNE NOUVELLE VERSION F83 A FAILLI 
S'APPELER F88; ELLE PORTE LE NOM DE F-PC ET NOUS VIENT 
DES USA. 


ELLE TIENT SUR AU MOINS 4 DISQUETTES ET EST BOURREE DE 
FICHIERS COMPRESSES. AU TOTAL PAS LOIN DE 3 MO DE CODE 
UNE FOIS DECOMPRESSE LE CONTENU DES FICHIERS. 


F-PC TRAITE COMME TURBO-FORTH DES FICHIERS ASCII 
(EXTENSION .SEQ) DONT CERTAINS SONT COMPATIBLES AVEC 
TURBO. 


IL COMPILE TRES VITE, EST DOCUMENTE EN ANGLAIS, DISPOSE 
DE NOMBREUX FICHIERS D'EXEMPLE. 


RESTRICTIONS: NECESSITE AU MINIMUM 380 KO MEM, DEUX 
DRIVES OÙ MIEUX, UN DISQUE DUR (QUASI-OBLIGATOIRE). IL 
OCCUPE PRATIQUEMENT TOUTE LA MEMOIRE. 


F-PC EST UN FICHIER .EXE MAIS NE TRAVAILLE PAS EN 32 
BITS. LE CODE ACTIF EST TOUJOURS LIMITE AUX FATIDIQUES 
64K MEM CECI POUR NE PAS CONTRARIER SES PERFORMANCES. 
LES EN-TETES SONT SEPARES AINSI QUE L'ÉDITEUR CE QUI 
LAISSE QUAND MEME UNE MARGE DE TRAVAIL CONFORTABLE. 


ET COMMENT CE PROCURER CETTE NOUVEAUTE? 
EN NOUS ENVOYANT 130 FR (CHEQUE OU TIMBRES) POUR LES 4 
DISQUETTES A: 

ASSOCIATION JEDI 

17 RUE DE LA LANCETTE 75012 PARIS 


NOTA: F-PC EST DU DOMAINE PUBLIC ET PEUT DONC ETRE 
DUPLIQUE ET DIFFUSE SANS NOTRE AUTORISATION. 


2EME NOTA: LA VERSION F-PC EST DECONSEILLEE AUX 
DEBUTANTS EN FORTH POUR UNE PREMIERE PRISE EN MAIN. IL 
FOURMILLE DE ROUTINES NON STANDARD. 


3EME NOTA: C'EST AVEC SURPRISE QUE NOUS AVONS CONSTATE 
FORTH7 ET MOI-MEME QUE F-PC UTILISE QUASIMENT LES MEMES 
TERMES QUE TURBO-FORTH POUR CERTAINES ROUTINES. ANSI, UN 
FICHIER .SEQ EST COMPILE EN TAPANT: 


INCLUDE fichier.SEQ 


A+ 
——  —— 
FF32 05.09.89 12h57 


SILENCE DE MORT AUTOUR DE S32... 


FORTH7 05.09.89 14h54 
SIMULATEUR: appareil capable de 
comportement d'un appareil. 


reproduire Le 


A mon avis, Le ‘blocage! S32 tient dans Un paradoxe: 
appareil simulant l'appareil qui devra Le simuler. 


J'exagere bien-suri Maïs songez Un peu a ceci: Le FORTH 
est d'abord une MACHINE A PILE d'un modele tres simple 
(quelques registres et une Logique quasi-simpliste) 


Nous desirons TOUS que Le Forth soit une machine REELLE: 
certains estiment que c'est Le seul avenir pour FORTH. 


La simplicite du FORTH autorise a rever d'une machine 
REELLE (elle existe deja) alors que nous travaillons 
encore sur des machines VIRTUELLES. 


Ainsi Turbo-Forth-83 est avant tout un SIMULATEUR Forth 
sur IBM-PCI 
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ce Forth est d'architecture classique c'est-a-dire a mots 
de 16 bits. Tout Le monde est d'accord en 1989 pour estimer 
que La machine FORTH doit muter aux 32 bits. Definir cette 
nouvelle machine Forth est un jeu d'enfant: toutes Les 
entites depuis Les cellules de pile jusqu'aux pointeurs cfa 
sont 32 bits! Simple oui: VIRTUELLEMENT simple. 


Pourquoi F32 c-a-d Le SIMULATEUR de La machine virtuelle 
Forth-32 bits n'est pas operationnel? 


Parce que nous developpons sur des machines 16 bits! Simuler 
par exemple une pile 32 bits est terriblement penalisant 
eur 8088. C'est possible bien-sur mais qui en voudra en 


pratique? 
Et Le S322 Si j'ai bien compris, c'est la couche SOUS Le 
F32. C'est Le simulateur au niveau Le plus bas (Les 


registres, Les portes, L'ALU, Les piles, Le hard quoi) d'une 
machine REELLE F32. Et c'est La que tout Le monde se met a 
DISJONCTER! 


Disjoncter est bien Le mot: personne ne Lit Les choses de La 
meme facon! Entre les machines reelles ou virtuelles qui 
se simulent Les unes Les autres, il y a de quoi se perdre... 


s32 simule une machine electronique avec des transistors, 
des impulsions et tout ca (je n'y connais rien!) qui une 
fois cablee simule elle-meme une machine Forth 32 bits F32 
virtuelle laquelle devenue enfin reelle sous la forme d'une 
puce encapsulee est a meme de simuter reellement S32. Ou est 
te probleme? 

CT ——————— 
GUILLAUMAUD PH. 08.09.89 08h30 

COMMUNIQUE: LE 14 SEPTEMBRE 1989, Presentation de La version 
3.00 de Le-Forth 


Quelques caracteristiques (en vrac): 

- Standard 83 

- Generation de fichiers "“.EXE" 

- inclusion d'outils permettant l'acces a TOUT Le systeme 
PC. 

- Gestion de La memoire etendue (EMS) 

- Graphisme (MGA,CGA,EGA, VGA) 


En cours d'etude : Version specifique au 80286,80386,68000 
A bon entendeur... 

a —————— 
FORTH7 08.09.89 19h49 

OUAOUH LE FORTH! Sommes bien contents d'apprendre Le 
prochain Lancement de La V3.00. Nous avions essaye La V1.05 
il y a qq mois et notre Secretaire avait resume notre 
opinion: un produit tres prometteur par quelques innovations 
mais plutot un heritier du FIG ou du F79. C'est dire si La 
mise au niveau F83 etait attendue avec impatience! 


Nous osons esperer que LE FORTH aura su integrer quelques 
unes des fonctionnalites de notre Turbo-Forth-83... Un Forth 
professionnel francais? 
ee ———— —— 
SURRELYVES 08.09.89 20h26 

BRAVO A LE-FORTH 


QUESTION: QUI LE DEVELOPPE? PRESENTATION OU CA? DANS LA 
PRESSE? ICI? 


QUESTION PLUS EMBARASSANTE: Ÿ AURA-T-IL UNE DOCUMEN 
T A T 1 O N ? FAUDRA-T-IL EPLUCHER UN SOURCE VAGUEMENT 
COMMENTE POUR SAVOIR L'OPERATION -CERTES GENIALE- EFFECTUEE 
PAR LE MOT NON STANDARD <*[FLOMP ? 


LE FORTH NE SE DEVELOPPERA PAS S'IL N'EXISTE PAS UNE 
DOCUMENTATION SERIEUSE ET PEDAGOGIQUE EN LANGUE FRANCAISE. 
IL FAUT SOULIGNER ICI L'EFFICACITE DU SECRETAIRE DE JEDI 
QUI À DES JOURNEES DE 30 HEURES POUR TOUT FAIRE. NEANMOINS, 
LA DOC DISPONIBLE RESTE NOTOIREMENT INSUFFISANTE. À PAR CA, 
COMPLETEMENT LARGUE PAR F32 C'EST DONC SUREMENT GENIAL. 
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- FORTH7 


09.09.89 15h33 
DOCUMENTATION |! 


Eternel serpent de mer: monstre proteiforme que nul ne 
voit... 


Une vraie plaie: mille fois plus simple et gratifiant de 
developper que de documenter. Pas seulement en Forth 
mais particulierement en Forth. 


La charge est telle qu'il faudra tot ou tard lLegiferer 
(encore que Forth soit Le plus hors-la-loi des 
langages). Deux solutions radicales sont a envisager: 


- documentation inutile 
- documentation obligatoire 


DOCUMENTATION INUTILE: Toutes Les docs sont nulles: ca 
debute par 50 pages sur ce qu'est un ordinateur et ca 
finit par La table ASCII. Par definition on n'y trouve 
jamais ce qu'on y cherche. 


Admettons Le principe: vous lisez une bonne fois un 
bouquin sur La becane ou Le logiciel, histoire de savoir 
ce qu'est un clavier ou une pile de RPN et puis termine! 
Surtout ne pas avoir a y chercher quelque chose plus 
tard: elle ne s'y trouvera pas. Ce sera au logiciel de 
vous repondre. 

Je trouve que nous avons fait pas mal de chemin dans 
ce sens: 


- decompilateur 

debogueur 

desassembleur 

- auto-documentation 

- presence de tous Les sources 


D'importants progres restent a faire mais vous 
comprenez ce que j'appelle La doc inutile: vous lisez Le 
Leo BRODIE' vous Lancez TF90 et vous vous dem..dez 
pour programmer en Forth... On y viendra. 


DOCUMENTATION OBLIGATOIRE: restent les bibliotheques. 
C'est-a-dire Le code mis au point par un et destine a 
etre re-utilise par tous. La, il va falloir sevir: doc 
obligatoire! 


Reprenons l'idee de La doc inutile et supposons Le 
systeme equipe deja d'une infrastructure 
d'autodocumentation complete. En gros: tout objet du 
systeme est lie a une base de donnee documentaire 
multi langue. 


Et distinguons Les applications (LOAD) des bibl iotheques 
(INCLUDE) pour que celles-ci soient documentees: 


Une application (le plus souvent fermee compilee sans 
en-tetes) pourra encore n'etre lisible que par son 
auteur, en toute liberte et sans charge de 
documentation. 


Par contre, Le meme programme pour etre promu au rang 
d'UNIT sera controle par Le compilateur: formatage 
standardise du source, presence et linkage des 
informations documentaires. Ainsi on va forcer Le 
developpeur a documenter en parallele. C'est La seule 
solution. En contrepartie L'UNIT pourra etre chargee 
intantanement sous forme pre-compilee. 


DOCUMENTATION PAPIER: ce projet documentaire 
(larvaire...) devrait faire partie du cahier des 
charges du prochain langage car nous assistons a ceci: 
Les Langages ont besoin de plus de puissance, de plus 
de concepts et quand La doc est enfin prete Le produit 
est obsolete. 


La doc doit etre integree des La conception et disposer 


elle-aussi des nouveaux concepts (hypertextes). Quant a La 
doc papier (plus-value protection ou tape-a-l'oeil) il ne 
sera pas bien sorcier de La pondre au kilo si Le contenu 
redactionnel existe deja! 


FF32 09.09.89 22h17 

F32: NI DEBILE NI GENIAL; SIMPLEMENT UN TRAVAIL D'EQUIPE. JE 
NE SUIS QU'UN FAISEUR DE CHIP, MAIS QUI VOUS PREPARE UNE 
MACHINE FORTH REELLE ARCHI-BALAISE. CEPENDANT, JE NE PEUX 
RIEN SANS VOTRE SOUTIEN... QUI VA S'EN SERVIR SINON VOUS? 


ALORS CELA ME PEINE UN PEU QUAND JE LIS DU SUPERLATIF SUR 
F32 DANS LE FORUM ET QUE MA BAL RESTE DESESPEREMENT VIDE. 


QUOI DE PLUS SIMPLE QU'UN CONTACT? JE SUIS L'INTERLOCUTEUR 
LE PLUS GENTIL DU MONDE, ENCORE FAUT-IL QU'IL Y AIT 
QUELQU'UN EN FACE. SI MES PAPIERS SONT INCOMPREHENSIBLES, 

C'EST SUREMENT MA FAUTE. MAIS ALORS DITES-MOI CE QUE VOUS 
VOULEZ/POUVEZ/FAITES. VENEZ ME VOIR ET JE VOUS MONTREREZ 
COMMENT MARCHENT LES SYSTEMES MODERNES QUE JE TENTE DE VOUS 
PROPOSER. DONNEZ-MOI RENDEZ-VOUS ET JE VIENDRAI VOUS VOIR. 
SI QUELQU'UN VOIT CE QU'IL FAUT DIRE, IL LE DIRA POUR MOI 


JE VOUS VOIS QUAND? IL Y A POURTANT TELLEMENT A FAIRE EN 
COUPLANT CE LANGAGE AVEC UNE MACHINE APPROPRIEE, ON CROIT 
REVER. SUIS-JE DONC LE SEUL, MOI QUI NE SUIS PAS FORTHIEN 
POUR DEUX RONDS, A REVER DANS JEDI. 


SURRELYVES 11.09.89 21h05 
1000 EXCUSES À F32 SI J'AI PU LE VEXER EN DISANT QUE J'ETAIS 
LARGUE PAR S32 


N'ETANT NI DEVELOPPEUR DE CHIP NI INFORMATICIEN THEORICIEN, 
LES NOTIONS D'ARCHITECTURE INFORMATIQUE NE M'INTERESSE QUE 
MED IOCREMENT 


LA QUESTION QUE JE ME POSE EST: F32 (OU S322?2) SERA-T-IL À 
LA FIN UN OUT IL  UTILISABLE PAR UN FORTHIEN LAMBDA 
EQUIPE D'UN PC? A UN PRIX RAISONNABLE? SERA-CE UN MOTEUR DE 
FERRARI AU PRIX D'UNE FERRARI? 


VOILA CE QUI BLOQUE PEUT-ETRE CERTAINS POUR S'INTERESSER DE 
PLUS PRES AU CHER ENFANT... 


FORTHFOUR 13.09.89 21h39 

BONJOUR À TOUS. MES VACANCES ETAIENT BONNES.... MERCI 

JE VIENS DE LIRE LE FORUM D'AOÛT, NON DESOLE, CA VOLE TROP 
HAUT, JE FAIT SIMPLEMENT PARTIE DES GENS QUI ONT BESOIN DE 
LIRE 3 FOIS LEUR DOC POUR COMPENDRE UN TEXTE SIMPLE, ALORS 
SANS DOC! 


N'EMPECHE, JE NE SAIS TOUJOURS PAS COMMENT COMPILER LE NOM 
D'UN FICHIER POUR POUVOIR L'UTILISER SANS LE DEMANDER A 
L'UTILISATEUR. AU SECOURS. AMITIES 


FORTHFOUR 15.09.89 20h54 
BJR. BON J'AI TROUVE POUR UN FICHIER 

OPEN TOTO.FTH" $EXECUTE 
MEME QUESTION POUR PLUSIEURS FICHIERS SIMULTANES. MERCI 
a —_——_—_— 
FF32 16.09.89 17h56 
À SURRELYVES: F32 DESIGNE UN MICROPROCESSEUR DONT LE DESIGN 
SE FERA AU COURS DE L'ANNEE SCOLAIRE QUI COMMENCE. LES 
IMPLEMENTEURS SONT DES ETUDIANTS DE 3EME CYCLE DE L'ESIEE 
(Ndlr: Ecole Superieur D'Informatique, Electronique et 
Electrotechnique; dispose d'une "Salle blanche!!...) A 
NOIÏSY-LE-GRAND (re-Ndlr: à 300m du domicile du Secrétaire 
JEDI). 


JE GUIDE CE PROJET AVEC POUR OBJECTIF DEJA QU'IL ABOUTISSE, 

ET CE N'EST PAS SIMPLE. MA MOTIVATION: VOIR JUSQU'OU ON PEUT 
MONTER EN PUISSANCE AVEC LE COUPLE MACHINE DE PILE/FORTH. EN 
32 BITS. POUR OPTIMISER L'UTILISATION DU SILICIUM IL NOUS 
FAUT METTRE ASSEZ RAPIDEMENT DANS LES MAINS DES GENS DE JEDI 
L'OUTIL QUI LEUR PERMETTRA DE JOUER AVEC UN MODELE 
COMPORTEMENTAL DE F32. S'AGIT PAS DE TRANSCRIRE VOS 
APPLICATIONS. AU PLUS QUELQUES DIZAINES D'INSTRUCTIONS, POUR 
S'ASSURER DE LEUR BON ENCHAINEMENT. C'EST S32. J'AI DECRIT 


DEJA CE QUE DEVRAIT ETRE CE MONITEUR. IL N'EST DONC 


MALHEUREUSEMENT PAS TELECHARGEABLE POUR L'INSTANT. MAIS 
BIENTOT, QUI SAIT? 


IL EXISTE UN ASSEMBLEUR INITIAL PROPOSE PAR NOTRE 
SECRETAIRE (MERCI). IL Y A QUELQUES DIFFICULTES AVEC LA 
REPRESENTATION DES NOMBRES, QUI EST PLUTOT CELLE DU 
68020 ET QUI PASSE MAL PAR UN PC: NEAMMOINS CE N'EST QUE 
DU DETAIL À CE NIVEAU DU PROJET, ET S'IL Y À PB DE CE 
COTE, IL DEVRAIT PLUTOT ETRE CONTOURNE POUR L'INSTANT. 
CE QUI COMPTE C'EST DE DONNER UN MONITEUR PERMETTANT À 
TOUS DE SENTIR FONCTIONNER F32. 


CE QU'IL FAUT 'SENTIR!': 


= ACTIVATION PARALLELE DES PILES EN HARD INVISIBLE DU 
SOFT 

- FETCH INSTRUCTIONS AVANCE 

- PILE D'INSTRUCTIONS INTERNES 

= IMPORTANT PARALLELISME INTERNE 

- STRATEGIES NECESSAIRES POUR JOUER AVEC LA TAILLE 
VARIABLE DES INSTRUCTION (F32 N'EST PAS UN RISC), LEUR 
TEMPS D'EXECUTION DEPENDANT DE L'ETAT DES FETCH, COMME 
SUR DES 286, '386, '680X0, ETC. 

° STRATEGIE DE RELOCATION DU CODE, F32 ETANT SENSIBLE 
AUX TEMPS D'ACCES (ICI AUSSI IL NE SE CONDUIT PAS EN 
RISC). 

= EXECUTION D'UN NOYAU A BASE FLOTTANTE 


SANS S32 ON PEUT FAIRE JUSTE UN F32 PIFOMETRIQUE, ET 
DEUX A TROIS FOIS RAPIDE QU'AVEC. LES POSSESSEURS D'UN 
68000 SONT MIEUX PLACES POUR ACCEDER À DES SIMU PLUS 
AMBITIEUSES, MAIS CE SERA PLUTOT POUR LE PRINTEMPS 


APPELEZ MOI DOM 69 20 45 90 POUR + ON RECHERCHE DES 
PARTICIPANTS. PAUL ORTAIS 


SECRETAIRE 18.09.89 08h45 

CONCERNANT SIMULATEUR F32: C'est presque Le serpent de 
mer. Le simulateur premier jet envisage fonctionne un 
peu comme DEBUG de DOS; il digere du code F32. Mais 
comme l'assembleur F32 n'est pas encore fiabilise, on ne 
peut etre certain, en cas de probleme, de dire si cela 
provient de l'assembleur, du simulateur ou du code 
lui-meme. 


1) L'assembleur: il depend des instructions disponibles 
sur Le processeur F32. J'ai deja transmis a FF32 et 
FORTH7 Les specifications d'un premier jeu 
d'instructions style "GUIDE DU 280 de Rodnay Zaks". Ces 
specifications permettent seulement d'attaquer le 
probleme et non de figer ce jeu d'instructions. Si vous 
telechargez ASSMF32.FTH fourni sur ce serveur (section 
FORTH, chapitre HARRIS NOVIX et F32...) vous aurez 
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